[lmikle]

Да, дурная голова рукам покою не дает

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
begin
  If SelectDirectory('Path:','',S) Then Edit1.Text := S;
end;