Уничтожить Form1 при открытии Form2

[FleXik]

Вобщем нужно чтобы при открытии Form2, Form1 унижтожалась (именно чтобы уничтожалась а не скрывалась в Hide или Enabled:=False) после чего Form2 была главной, реально ли это?

[Yurk@]

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

[FleXik]

сделать Form2 изначально главной

сделал

и скрыть ее перед запуском.

каким образом это сделать? пробовал на OnActivate, ошибки вылазят..

[FleXik]

procedure SetAsMainForm(aForm:TForm);
var
P:Pointer;
begin
P := @Application.Mainform;
Pointer(P^) := aForm;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
SetAsMainForm(Form2);
Form1.Close;
end;

end.

Вот нагуглил процедурку, все работает (по другому никак, иначе нужно писать многабукаф)

[Yurk@]

ну к чему такие "костыли"

Form2.Visible := False;

и все ...
а перед закрытием Form1 делать (примерно):

Form1.Hide;
Form2.Show;
Form1.Destroy;