Fórum Data do arquivo #247141

procedure TForm1.Button1Click(Sender: TObject);
Var
  DataArquivo : TDateTime;
begin
   DataArquivo := FileDateToDateTime(FileAge(´C:\teste.txt´));
   If(DataArquivo = Date)Then
     {...}
   Else
     If(DataArquivo < Date)Then
     {..}
     Else
       ShowMessage(´Data do arquivo é maior q a data do sistema´);
end;

end.