...show the select directory dialog?

uses Filectrl; 

{....}

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