Hallo,
die Lösung Deines Problemes hat Dir doch Ultimator schon gepostet.
Delphi-Quellcode:
var
DateiDatum:TDateTime;
aAge :Integer;
...
...
if OpenDialog1.Execute then
begin
aAge:=FileAge(OpenDialog1.FileName);
if (aAge<>-1) then
begin
DateiDatum:=FileDateToDateTime(aAge);
ShowMessage('Dateidatum: '+DateTimeToStr(DateiDatum));
end else ShowMessage('Datei ist nicht vorhanden...');
end; // if
[edit]Teppfihler beseitigt...[/edit]