Files Delphi

Title: How to show the select directory dialog
uses Filectrl;
{....}
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: String;
begin
SelectDirectory('Select a directory', '', Dir);
ShowMessage(Dir);
end;