Удаление формы

[zdus2757]

Всем привет, снова появился вопрос где гугл мне не помог
думаю все просто, но не вижу что менять)
мне нужно сделать так
1)если в реестре есть запись и она = 1 то
2)сменить главную форму (это я реализовал через гугл) вот так:

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

3)удалить форму которая была главной до этого
проблема в удалении формы, пытаюсь "разрушить" её т.е. Form2.Destroy;

ошибка Access violation

происходит все в FormShow
прикол вот в чем, по началу главная форма Form2
при создании формы сразу вызывается Form2.Show;
т.е. выполняется проверка в реестре
после Form2.Show;
выполняются остальные проверки реестра

есть ли способ остановить процесс работы формы и просто уничтожить её и работать дальше с первой формой?

ps. как обычно мне нужен только совет, не надо писать код

[zdus2757]

:D сам решил проблему

сделал так:
просто в самом проекте, в создании главной формы сделал проверку
если в реестре 1 то создать первую форму, если 0 то создать вторую)