Создание директории на диске из кода

[InTacto]

CLEAR(Shell32);
CREATE(Shell32);
Folder := Shell32.BrowseForFolder(0,'',0);
IF ISCLEAR(Folder) THEN
  EXIT;
FolderItem := Folder.Self;
"Path To CreatingFolder" := FolderItem.Path;



Name	DataType	Subtype	Length
Shell32	Automation	'Microsoft Shell Controls And Automation'.Shell	
Folder	Automation	'Microsoft Shell Controls And Automation'.Folder2	
FolderItem	Automation	'Microsoft Shell Controls And Automation'.FolderItem

В базовом коде кажется тоже что-то есть.