Problem mit "ChooseFolder"

[Matze]

So etwas kürzer

Delphi-Quellcode:

uses FileCtrl

...

procedure TForm1.BitBtn1Click(Sender: TObject);
var Pfad: string;
begin
  SelectDirectory('Ordner auswählen', '', Pfad);
  Edit1.Text:=Pfad;
end;