Erstellungsdatum von einem Verzeichniss

[Mondengel]

Hey danke Ihr Programmierprofis

Eure vorschläge haben prima geholfen.

Und hier lege ich noch den Code ab für alle die das gleiche Problem haben:
Unit DateUtils;

Code:

function DirectoryAge(path : String) : TDateTime;
var
  sr : TSearchRec;
  creationTimeSystem: TSystemTime;
begin
  if sysUtils.FindFirst(path, faDirectory, sr) = 0 then
  begin
    try
      FileTimeToSystemTime(sr.FindData.ftCreationTime, creationTimeSystem) ;
      with creationTimeSystem do
        Result := EncodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliseconds) ;
    finally
     FindClose(sr) ;
    end;
  end
  else
  begin
    Result := -1;
  end;
end;