Цикл по каталогам Windows, создание каталогов

[honor]

Подскажите пож-та, мне нужно создать папки в Windows, иногда бывает так что такая папка уже есть, програма выдает ошибку, как этого избежать?
Как в переменных перечислить все нужные мне каталоги, а затем в цикле, проверить каждую есть такая или нет, и если нет, то создать такую именно в нужном мне регистре?! Как воспользоваться массивом из нужных мне переменных?! Результат вывести в Tedit1.

Procedure TForm2.Button1Click(Sender: TObject);
begin
// Create folders to Disk D:\
MkDir ('D:\TEST');
MkDir ('D:\TEMP');
MkDir ('D:\Documents');
MkDir ('D:\Downloads');
// и т.д. 

if IOResult <> 0 then
    MessageDlg('Cannot Create Directory!', mtWarning, [mbOK], 0)
  Else
    MessageDlg('Directory Created!', mtWarning, [mbOK], 0);

end;

[Кольша]

Procedure TForm2.Button1Click(Sender: TObject);
const ar:array [0..3] of string=('D:\TEST','D:\TEMP','D:\Documents',''D:\Downloads');
var
i:integer;
begin
for i:=0 to 3 do
if DirectoryExists(ar[i]) then
showmessage('папка: '+ar[i]+' существует!')
 else
try
MkDir (ar[i]);
except
showmessage('папка: '+ar[i]+' не создана!');
end;
end;

[honor]

Спасибо, изменил код:

// Create folders to Disk C:\ and D:\
procedure TForm2.Button1Click(Sender: TObject);
Const ar:array[0..2] Of String=('C:\TEMP2', 'D:\TEST1', 'D:\TEST2');
var i:integer;
begin
for I := 0 to 3 do
if DirectoryExists(ar[i]) then
Showmessage('Директория'+ar[i]+' существует!')
Else
Try
MkDir(ar[i]);
Except
Showmessage('Директория'+ar[i]+' создана!');
end;

при нажатии "Break", выдает ошибку на строке:
MkDir(ar[i]);

[eoln]

try ловится отладчиком, при запуске откомпилированной программы этого не будет

И цикл надо от 0 до 2

[Кольша]

procedure TForm2.Button1Click(Sender: TObject);
Const ar:array[0..2] Of String=('C:\TEMP2', 'D:\TEST1', 'D:\TEST2'); 
var i:integer;
begin
for I := 0 to 2 do
if DirectoryExists(ar[i]) then
Showmessage('Директория'+ar[i]+' существует!')
Else
Try
MkDir(ar[i]);
Except
Showmessage('Директория'+ar[i]+' не создана!');
end;

[honor]

Спасибо, исправил. Сразу спрошу, не подскажете, как вывести мессадж не в ShowMessage а в трей, в симпатичную подсказочку около часов, ну или не симпатичную?!

[Кольша]

Найдите компонент FWTrayIcon там есть функция showBaloonHint вроде так, дак вот она выводит уведомления возле трея)

[honor]

Подскажите, как вывести информацию о созданных каталогах в реквизит на форме?! Какой взять?