Nur einen Ordner auswählen

[Matze]

ich schließe mich Tom an. Das ist das Einfachste:

Delphi-Quellcode:

uses FileCtrl;
...
procedure TForm1.Button1Click(Sender: TObject);
var Pfad: string;
begin
  SelectDirectory('Ordner auswählen','',Pfad);
end;