procedure TForm1.FormCreate(Sender: TObject); begin CreateDir(getcurrentdir+'\123'); CreateDirectory(PAnsiChar(getcurrentdir+'\456'), nil); end;