Seçilen Klasördeki İstediğin Uzantıdaki Dosyaları Listeler

1 buton
1 listbox

Kod:
procedure TForm1.Button1Click(Sender: TObject);
var
dosya:TSearchRec;
begin
if FindFirst('c:\Hamal\*.txt', faAnyFile, dosya) = 0 then
begin
repeat
ListBox1.Items.Add(dosya.Name);
until FindNext(dosya) <> 0;
FindClose(dosya);
end;
end;