Как закрыть MDIChild форму по нажатию на кнопку

[AndreyF]

Добрый день!
Кто знает знает прошу помочь.

Как закрыть fsMDIChild по нажатию на кнопку?
Форма создаётся методом MDIChildForm2:=TForm2.Create(Owner) ;

procedure TForm3.Button2Click(Sender: TObject);
var
Action : TCloseAction;
begin
Action := caFree;
end;

Если на этом событии закрывать форму, то всё работает, но нужно именно чтобы MDIChild форма уничтожалась с кнопки.

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

[psycho-coder]

Вы сами поняли, что написали?

Здесь мы говорим форме что при закрытии она уничтожается

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

А тут тупо говорим что бы она закрылась.

procedure TForm3.Button2Click(Sender: TObject);
begin
  Close;
end;

После вызова метода Close; вызывается метод FormClose;

[AndreyF]

пардон,
как уничтожить fsMDIChild по нажатию на кнопку?

[spamer]

Вроде так

newform.Free;

[AndreyF]

Спасибо всем.