Создание обьектов файловой системы через делфи

[BETONOMESHALKA]

Как програмно создавать папки, текстовые документы и т.д.?

[Yurk@]

Создание каталогоа:

 begin
   {$I-}
   MkDir('c:\windows');
   {$I+}
   if IOResult <> 0 then
     MessageDlg('Невожможно создать каталог !',
       mtWarning, [mbOK], 0)
   else
     MessageDlg('Каталог создан', mtInformation, [mbOK], 0);
 end;

Создание текстового файла:

var
F :TextFile;

begin
AssignFile(F,'имя файла');
ReWrite(F);
CloseFile(F);
end;

[Квэнди]

утонили бы что создание объектов файловой системы. исправлено