fixed Delphi 6 compilation warning