Afficher la boite de dialogue 'Choix du répertoire'

uses Filectrl;

procedure TForm1.Button1Click(Sender: TObject);
var
Dir : String;
begin
SelectDirectory('Select a directory','',Dir);
ShowMessage(Dir);
end;