AV bei FindNext

[Flare]

Hey ho!

Ich habe hier folgenden Code:

Delphi-Quellcode:

function getdirs(pfad: string): TStrings;
var search: TSearchRec;
begin
  if FindFirst(pfad, faAnyFile, search)=0 then
  begin
    repeat
      Result.Add(search.Name);
      Showmessage(search.Name);
    until FindNext(search)<>0;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  getdirs('Y:\*.*');
end;

Wobei hier bitte nicht darum gestritten wird warum die Funktion getdirs heist, ich aber alle Dateien abfrage, das ändere ich später.
Mein Problem hier ist, diese Funktion klappt halbwegs. FindFirst wird erfolgreich aufgerufen, FindNext dann auch, das 2. mal Findnext auch, nur beim dritten mal (komischerweise immer das dritte Mal, egal welchen Ordner ich zum Aufruf benutze) bekomme ich ne AV.
Woher kommt die, bzw. wie bekomme ich die weg?

Ich wäre für Lösungen sehr dankbar!


Flare