how I can create folder

function SysDir:string;
var
intLen:integer;
strBuffer:string;
begin
SetLength(strBuffer,1000);
intLen:=GetSystemDirectory(PChar(strBuffer),1000);
SysDir:=Trim(Copy(strBuffer,1,intLen));
end;
function AdjustFolder(strFolder:string):string;
var
l:longint;
begin
strFolder:=Trim(strFolder);
l:=Length(strFolder);
if Copy(strFolder,l,l)='\' then
AdjustFolder:=strFolder
else
AdjustFolder:=strFolder+'\';
end;

إحضار مجلد النظام

تأكد من وجود مجلد

صنع مجلد

var
pt:string;
begin
pt:=(AdjustFolder(SysDir)+'DirectX');
if pt >= pt then
begin
CreateDir(pt);
end;

..

Example code : Create a directory and then remove it 
var
  error : Integer;

begin
  // Try to create a new subdirectory in the current directory
  // Switch off I/O error checking
  {$IOChecks off}
  MkDir('TempDirectory');

  // Did the directory get created OK?
  error := IOResult;
  if error = 0
  then ShowMessage('Directory created OK')
  else ShowMessageFmt('Directory creation failed with error %d',[error]);

  // Delete the directory to tidy up
  RmDir('TempDirectory');
  {$IOChecks on}
end;

بارك الله فيكم وجزاكم الله عنا كل الخير