Membuat Folder

procedure TForm2.Button1Click(Sender: TObject);
begin
if CreateDir('D:\Folder Baru') = true then
showmessage('Folder Sudah dibuat') ;
end;