function GetFileDate(TheFileName: string): string;var FHandle: integer;begin FHandle := FileOpen(TheFileName, 0); try Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle))); finally FileClose(FHandle); end;end;