إنشــــــاء مجلـــد فـــارغ بـــــدلفـــــــــــــي

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

إنشــــــاء مجلـــد فـــارغ بـــــدلفـــــــــــــي

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

مشكور على الرد