Ordner erstellen

[Noedel]

Ich glaube, er fragt danach, wie man einen Ordner erstellt. kann das sein?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var pfad:string;
begin
  pfad:=edit1.text;
    if directoryExists(pfad) then showmessage('Der Ornder existiert schon') else
      if (not CreateDir(pfad))  then showmessage('Fehler') else
      CreateDir(pfad);
end;