[Aleks99]

procedure TForm1.ToolButton5Click(Sender: TObject);

Код:

var
a,: String;
begin
      /// Этот путь вроде у всех есть кто на win7 (в оригинале переменная с memo1.text)
     if SelectDirectory('Выберите каталог','C:\Windows\System32\drivers',a) then                    
     else
       ShowMessage('Выбор был отменен');
end;

Проблемма в том что я не могу подняться в папку System32 или Windows и так далие.
Попробуй ты сможешь выбрать папку System32 ??
Спасибо за участие.