Create Directory

In the Delphi programming, to create a folder can use the function:
CreateDir(const Dir: string): Boolean -->  can only create folders one level
ForceDirectory(Dir: string): Boolean --> can make more than one folder level

procedure TF_CreateDir.Button1Click(Sender: TObject);
begin
 if CreateDir('c:\DirBaru')=true then
  showmessage('Managed to create a directory') else
  showmessage('Failed to create directory');
end;

procedure TF_CreateDir.Button2Click(Sender: TObject);
begin
 if ForceDirectories('c:\Coba\DirBaru')=true then
  showmessage('Managed to create a directory') else
  showmessage('Failed to create directory');
end;