[NumLock]

Код:

uses
  FileCtrl,
...
var
  Directory: String;
begin
  if SelectDirectory('Выбери папку:', '', Directory) then
  begin
    ShowMessage(Directory);
  end;
end;