SelectDirectory, rxLib: TDirectoryEdit -вывод диалога выбора каталога
GetWindowsDirectory -каталог Windows

FillChar(PathArray,SizeOf(PathArray),#0);
GetWindowsDirectory(PathArray,255);
WindowsDirLabel.Caption:=Format('%s',[PathArray]);

Вместо WindowsDirLabel.Caption введешь то, куда тебе нужно написать путь к системному каталогу