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