Wenn du nur einen Ordner auwählen willst, kannst du auch auf SelectDirecotory aus der
Unit SysUtils zurückgreifen:
Delphi-Quellcode:
...
uses FileCtrl
...
procedure TForm1.Button1Click(Sender: TObject);
var
ordner: String;
begin
if SelectDirectory('Bitte Ordner auswählen', '', ordner) then
Edit1.Text := ordner;
end;
stefan