Title: Call Browse for Folder dialog
Following procedure can call the Browse for Folder dialog.
uses FileCtrl;
...
procedure TMainfrm.Button1Click(Sender: TObject);
var
St: string;
begin
St:='c:\';
if SelectDirectory(St,[],0) then Label1.Caption:=St;
end;