بـــســـم اللــــه الـــرحمـــــن الـــرحيـــــــــــــــــــم
الصـــــلاة والســـــلام علـــى رســـــول الله

إنشــاء مجلـــد فـــارغ بـدلفـــي
Create an empty folder

Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
 CreateDir('Folder1');
// CreateDirectory(PChar('Folder1'), nil);
end