[bussianko]

можно попробовать такой код. Сначало в начале модуля необходимо описать проседуру такого вида:

procedure ButonClick(Sender: TObject);

после этого в разделе реализаций:

Код:

procedure ButonClick(Sender: TObject);
{Эта процедура сначала проверяет создана ли Form2 и если нет тогда создаёт её и показывает сообщение и после этого проверяет показана ли Form2 и если нет то показывает иначе прячет}
var
  Mtd: TMethod;
begin
  if not Assigned(Form2) then
  begin
    Mtd.Code:= @ButonClick;
    Mtd.Data:= NIL;
    Form2:= TForm2.Create(Application);
    Form2.OnClick:= TNotifyEvent(Mtd);
  end;
  MessageBox(0, 'Hello World !!!', 'WARRNING', MB_OK);
  if not Form2.Showing then
    Form2.Show
  else
    Form2.Hide;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Method: TMethod;
begin
  Method.Code:= @ButonClick;
  Method.Data:= NIL;
  Form1.OnClick:= TNotifyEvent(Method);
end;

Админ: Пользуемся тегами для оформления кода!