[v1s2222]

А в чом проблема то?

Код:

procedure ScanDir(StartDir: string; Mask: string; List: TListBox);
var
  SearchRec: TSearchRec;Edit1: TEdit;
begin
StartDir:='C:\';
  if Mask = '' then
    Mask := '*.*';
  if StartDir[Length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
  if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then
  begin
    repeat Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> faDirectory then
        List.items.Add(StartDir + SearchRec.Name)
      else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')then
      begin
        List.Items.Add(StartDir + SearchRec.Name + '\');
      ScanDir(StartDir + SearchRec.Name + '\', Mask, List);
  end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

///
procedure TForm1.Button1Click(Sender: TObject);
begin
  scandir('C:\', '111', listbox1);
end;