function SelectADirectory(Title : string) : string;
var
  Pasta : String;
begin
  SelectDirectory(Title, '', Pasta);
 
  if (Trim(Pasta) <> '') then
    if (Pasta[Length(Pasta)] <> '\') then
      Pasta := Pasta + '\';
 
  Result := Pasta;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Setando para uma Edit a pasta selecionada.
  Edit1.Text := SelectADirectory('Selecione a pasta de Instalação.');
end;