Ukryty Form2, a wyłączanie programu

Witam,

Mam taki problem, a mianowicie, na początku programu przez kilkanaście sekund wyświetla się strona tytułowa programu.

procedure TForm2.Timer1Timer(Sender: TObject);
begin
a:=a+1;
if a=100 then
begin
form2.hide;
form1.show;
end;
end;

Więc po upływie czasu Form2 się chowa, zaś zostaje wyświetlony Form1, z programem.

Gdy program (Form1) zamkniemy "x" w górnym prawym rogu, Form1 znika, ale program przez Form2 nadal działa w pamięci.

I teraz moje pytanie: Jak zmodyfikować program (co dodać) aby podczas zamykania Form1 poprzez "x" Form2 również się zamkną.

Proszę o pomoc

Pozdrawiam

Dehis

Poczytaj lepiej, jak należy robić splashscreeny, ponieważ od tego ręce opadają :/...

Nie twórz form2 automatycznie.
Stwórz ją na początku konstruktora form1, wtedy form1 będzie główną formą programu, wtedy po schowaniu form2 nić się nie zmieni, możesz nawet ją zamknąć przez close zamiast chować.

Zamiast

Form2.Hide

daj Form2.Close

Ps; 
I jeszcze ten kod można ulepszyć
```delphi
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Form2.Close;
Form1.Show;
Timer1.Enabled := False;
end;

a Interval ustaw na czas po jakim ma się wyłączyć ta druga forma.