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;