[NumLock]

Код:

uses
  FileCtrl,
...
var
  dir: String;
begin
  if SelectDirectory('А ну ка...', 'd:\', dir) then
end;