//Did you know that you can get BrowseForFolder Dialog with few lines of code.
//Following procedure does the work:
//...
uses
FileCtrl;
//...
procedure TMainfrm.Button1Click(Sender: TObject);
var
s: string;
begin
if SelectDirectory('Select Directory','',S) then
Label1.Caption:=s;
end;
end;
{
This was send in by Dennis K.N.
Fell free to use it
}