[Black Raider]

за место :

Код:

MessageBox(Form,'Вы нажали на кнопку','Загаловок',0);

поставить:

Код:

ShowWindow(Form1,SW_SHOW);

тут убрать:

Код:

  // показываем окно
  ShowWindow(Form,SW_SHOW);
  //ShowWindow(Form1,SW_SHOW);
end;