Delphy 7 Вопрос по таймеру.

[Intripio]

Доброе время суток!
Есть форма. На этой форме есть таймер и прогресбар. По таймеру прогресбар заполняется до 100 и таймер выключается. После того, как таймер выключился нужно чтобы эта форма закрывалась и открывалась другая форма НЕ В МОДАЛЬНОМ режиме. Но к сожалению этого сделать не получается, т.к. если родительская форма закрывается, то и программа закрывается вообще как сия реализовать?

P.S.
исходник

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i+1;
progressbar1.Position:=i;
if i=100 then
begin
Timer1.Enabled:=false;
Form3.show;
close;
end;
end;

[BDA]

Решение простое.
Создайте родительскую форму, которая будет невидимой.
У нее создайте 2 формы.
Одна с таймером.
Вторая - требуемая.
или
Создайте форму, которая должна появиться, а у нее сделайте форму с таймером.

В проекте-примере форма с таймером создается динамически и показывается перед основной формой (форма2 перенесена в поддерживаемые формы из раздела автоматически создаваемых).