Files suchen und sortieren

[p80286]

Delphi-Quellcode:

Function FileList (aPath : String) : TSearchRecList;
Begin
  Result := TSearchRecList.Create;
  Try
    ReadDirectory (aPath, Result);
    SortListByCreationData(Result);
  Except
    Result.Free;
    Result := Nil;
    Raise;
  End;
End;

Ist das nicht pfui bah wegen möglicher Speicherleks?

Gruß
K-H