delphi6.0函数