Уничтожение модальной формы

[AndreyK]

Здравствуйте! Есть главная форма (Form1) и дочерняя (Form2). Дочерняя форма создаётся вручную а не автоматически и показывается как модальная
т.е так:

procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2,Form2);
Form2.ShowModal;
end;

Затем когда я хочу освободить Form2 из памяти
т.е так:

procedure TForm2.Button1Click(Sender: TObject);
begin
 Form2.Free;
end;

Form2 изчезает, но первая форма (Form1) остаётся заблокированной. Подскажите плиз кто знает как правильно уничтожить модальную форму?

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2,Form2 );
Form2.ShowModal;
Form2.Free;
end;

Затем когда я хочу освободить Form2 из памяти
т.е так:
procedure TForm2.Button1Click(Sender: TObject);
begin
  ModalResult:=mrOk; //или mrCancel, mrAbort и пр
end;

[XeruH]

...
try
  Form2.ShowModal;
finally
  Form2.Free;
end;

[AndreyK]

спасибо большое за ответы вы мне очень помогли)))