[Delphi] Lista plików

Rozwiązanie na pewno jest banalne ale nie potrafię jakoś na to wpaść. Jak zrobić listę plików w folderze i wyświetlić ją na listboxie?

FAQ/Artykuły/Gotowce

Rozwiązanie na pewno jest banalne ale nie potrafię jakoś na to wpaść. Jak zrobić listę plików w folderze i wyświetlić ją na listboxie?

takich procedur w archiwum faq czy czym kolwiek jest od ch**ery
ale że mam akurat kod na widoku to ci wkleje:

var
SR: TSearchRec;
ListaPlikow : TStringList;
Found : Integer;
begin
ListaPlikow := TStringList.Create;
Found := FindFirst('C:*.*', not faDirectory, SR);
while Found = 0 do
begin
ListaPlikow.Add(SR.Name);
Found := FindNext(SR);
end;
FindClose(SR);
ListBox1.Items.Assign(ListaPlikow);
ListaPlikow.Free;
end;

Spoko dałem pupy ... ale mimo wszystko dzięki za pomoc. [wstyd]