1:
2:
3:
4:
5:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ListDirs('c:\Windows\',ListBox1.Items);   //hier
 ListFiles('c:\Windows\*.*',ListBox2.Items); //und hier
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var
  Strings: TStringList;
begin
  Strings := TStringList.Create;
  try
    Strings.Assign(ListBox1.Items);
    ListDirs('c:\Windows\', Strings);
    ListBox1.Items.Assign(Strings);
  finally
    Strings.Free;
  end;
end;					

1:

Procedure ListFiles(const FilePath: String; var ListBox: TStrings);