* fix complie error in delphi 7