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