delphi:常用系统函数（转载）