Membuat Folder dengan Delphi

Artikel kali ini saya akan share gimana caranya bikin Folder secara otomatis dengan Delphi tentunya,,mau tau carany???cari aja sendiri!!!!he...nih ikutin aja2 langkah2 berikut:
1.Buka Delphi nya masing2
2.tambain aja satu buah Component Button.
3.Dobel click
4.ketik or Copas(copy paste)kode berikut:

Procedure TForm1.Button1Click(Sender:TObject);
var
Dir: string;
begin
Dir := 'C:\APPS\SALES\LOCAL';//Directory dimana Folder akandibuat
ForceDirectories(Dir);//Function untuk membuat Folder or dir
if DirectoryExists(Dir) then //cek apakah dir exist?
ShowMessage(Dir + 'Udah dibikin bos!');
END;

Guampang banget kan?????iyalah soalnya yang susah2 saya gak bisa,he...
semoga ada manfaatnya ya ^__^