TSearchRec in einer TListBox

[qb-tim]

Hi,

kann mir jemand sagen, wie ich das Ergebnis einer FindFirst-FindNext-FindClose als TSearchRec in eine TListBox laden kann?

Mir wäre am liebsten, wenn ich in einer for..do Schleife nacheinander die Dateinamen der TSearcRec in einen String umwandeln kann. --- Ich kann's nicht

Delphi-Quellcode:

for x := 1 to z do // wobei z die Anzahl der Dateien ist
begin
  s := // ? - Wie lese ich den nächsten Eintrag des TSearchRec in den String ein?
  ListBox1.Items.Add(s);
end;