[РЕШЕНО][Delphi] модальная форма как загрузочный экран. Возникает ошибка при повторном показе главной формы.

[skif68]

Доброе время суток
Вопрос в следующем:
Создается модальна форма-заставка

procedure TForm1.FormShow(Sender: TObject);
begin
Form2.ShowModal;// отображение заставка
end;

форма закрывается то истечению времени и отображается главная форма Form1
с главной формы переходим на Form3

procedure TForm1.Button1Click(Sender: TObject);
begin
Form3.Show;
Form1.Hide;
end;

а кода возвращаюсь на Form1 выдает ошибку

procedure TForm3.Button1Click(Sender: TObject);
begin
Form3.Close;
Form1.Show;
end;

Пожалуйста, оформляйте Ваш код согласно правилам.
Понимаю что при отображении Form1 программа пытается запускать Form2 а как можно это обойти не пойму. Может что то посоветуйте.

Решение:

Сообщение от evg_m

form2:=nil; //когда она больше не нужна

if form2<>nil then form2.Showmodal;

[Вадим Мошев]

Пробуйте выполнять показ модальной формы внутри обработчика onCreate у главной формы.

[skif68]

через onCreate не вариант т.к. после закрытия модальной формы, Form1(она является главной) не отобразится потому что создание Form1 будет перехвачено

procedure TForm1.FormCreate(Sender: TObject);
begin
form2.ShowModal;
end;

[evg_m]

form2:=nil; //когда она больше не нужна

if form2<>nil then form2.Showmodal;

[skif68]

Спасибо помогло