Перед разделом var запишите объявление процедуры:
Procedure RunDialog (Handle: THandle; Icon: HIcon; Directory: PChar; Title: PChar; Description: PChar; Flags: Integer); stdcall; external 'shell32.dll' index 61;
Пример использования:
Procedure TForm1.Button1Click (Sender: TObject); const //параметры REF_NOBROWSE=1; REF_NODEFAULT=2; REF_CALCDIRECTORY=4; REF_NOLABEL=8; REF_NOSEPARATEMEM=$20; //только для NT begin RunDialog(Handle, Icon.Handle, PChar ('D:'), PChar ('Запуск'), PChar (''), REF_NOBROWSE or REF_NODEFAULT); end;