form.show в коде проекта

[Ozerich]

первое выкладываю СУПЕР упрощенные исходники
Project1.dpr

program Project1;
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form1},
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  application.ShowMainForm:=false;
  form2.show;
  Application.Run;

Unit1.pas

var
  Form1: TForm1;
  s:string;

Unit2.pas

uses unit1;
procedure Tform2.sBitBtn1Click(Sender: TObject);
begin
showmessage(s);
begin

по нажаьтию на кнопку прога виснет.
Почему?

[Terran]

Я сделал всё как у вас. У меня всё нормально работает. Только я убрал строчку Application.MainFormOnTaskbar:=True ;. Я не совсем понимаю зачем она нужна если у формы нет такого события, да к тому же ему приравнивается значение True.

[Ozerich]

Terran ты гений.Я не могу и предположить что проблема в этой строчке.У меня дельфа 2007.Эта строчка всегда создается и с ней всегда работает НО с этой прогой не работает.СПАСИБО!