Use this function to get a file's date and time stamp as a string:
function GetFileDate(TheFileName: string): string;
var
f: integer;
begin
f := FileOpen(TheFileName, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(f)));
finally
FileClose(f);
end;
end;