function CreateDir(const Directory: String): boolean;
//In diesem Beispiel wird das Verzeichnis "C:\temp" erstellt, wenn es noch nicht vorhanden ist.uses FileCtrl;procedure TForm1.Button1Click(Sender: TObject); begin if not DirectoryExists('c:\temp') then if not CreateDir('C:\temp') then raise Exception.Create('Cannot create c:\temp'); end;