uses FileCtrl;

procedure TForm1.Button4Click(Sender: TObject);
begin
 if DirectoryExists('Folder11') then
 ShowMessage('هـــذا المجلد مـــوجـــود')
 else ShowMessage('هــذا المجلد غيــــر مـــوجـــد '); // folder Exist . 
end