Заставка...

[maxlake1]

Программа состоит из 3-х форм.
form3 - заставка, содержащая изображение, timer, progressbar.
form2 - ввод пароля, появляется соответственно после form1.
form1 - пустая форма.

UNIT1:

procedure TForm1.FormShow(Sender: TObject);
begin
form3.showmodal;
end;

UNIT2:

procedure TForm2.Button1Click(Sender: TObject);
begin
if edit1.Text <> '123'
then
Showmessage('Пароль: 123!')
else
begin
form2.Hide;
form2.Free;
form1.Show;
end;

end;

UNIT3:

procedure TForm3.Timer1Timer(Sender: TObject);
begin
if progressbar1.Position < progressbar1.Max
then
begin
progressbar1.Position := progressbar1.Position + 25;
timer1.Interval := 1000;
end
else
begin
form3.Hide;
form3.Free;
form2.Show;
end;
end;


Проблема в следующем: после ввода пароля form2 удаляется, но form1 не появляется! Заранее благодарю за помощь!