Új directoryt hozhatunk létre az alábbi módon:

procedure TForm1.Button1Click(Sender: TObject);
begin
  {$I-}
  mkdir('c:\wawa');
  {$I+}
  if ioResult=0 then kész else rossz'
end;

Megjegyzés:
Ahol a "{$I-}" arra kell, hogy ha már van olyan directory, akkor ne akadjon le a program.