Dateidatum simple ermitteln

[Coder]

Hallo, und zwar möchte ich recht einfach das Datum einer Datei ermitteln.

Hierzu habe ich bisher immer folgende selbstgebastelte Function verwendet, wollte aber nun mal fragen, ob es da nicht was effizienteres gibt?

Delphi-Quellcode:

function DateSizeOfFile(Fname: string): string;
var Rec: TSearchRec;
  sim: string;
  Filename, Path: string;

begin
  Path := '';
  FileName := Fname;
  if FindFirst(Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
  try
    repeat

          Sim := Datetimetostr(FileDateToDateTime(Rec.Time)) + '  '+ inttostr(Rec.Size)+ ' Byte';
    until FindNext(Rec) <> 0;
  finally
    FindClose(Rec);
    result := Sim;
  end;
end;