Datei nach Änderungsdatum suchen

[dumper]

Code:

function TForm1.SetLatestZip(path: String): String;
var Temp : integer;
    SearchRec: TSearchRec;
    LatestDateDt : TDateTime;
    DateDt : TDateTime;
begin
  FindFirst(path+'\*.zip', faAnyFile, SearchRec);
  while (FindNext(SearchRec)=0) do
  begin
    temp    :=FileAge(path+'\'+SearchRec.Name);
    DateDt  :=FileDateToDateTime(temp);
    if result ='' then
    begin
      result :=  SearchRec.Name;
      LatestDateDt := DateDt;
    end
    else
    begin
      if DateDt > LatestDateDt then
      begin
        result := SearchRec.Name;
        LatestDateDt := DateDt;
      end;
    end;
  end;
end;

iwas stimmt da nicht...
die erste datei im ordner wird übersprungen.. er fängt immer mit der 2ten an..