[NumLock]

для выбора папки как правило используют вариант:

Код:

var
  Dir: String;
begin
  if SelectDirectory('Выберите папку:', '', Dir) then Edit1.Text:=Dir;
end;

и интуитивно понятней будет сделать это по кнопке с соотв. надписью, а не по кликам по полю.