一个字窗体关闭的问题，高手请进

Question

有一个fsMDIChild窗体form1，在这个form1上，可以存在别的fsmdichild窗体，
假设有个form2，form3，form4窗体，现在想在form1中加个按钮‘关闭子窗体’
使form2，form3，form4中的当前活动窗体关闭，不知这个按钮里的代码应该如
何写，高手请教。

Answer 1

Form1是MDIForm父窗体吧？
Form1.ActiveMDIChild.Close;想关闭全部子窗体？
for i:=0 to Form1.MDIChildCount-1 do
 Form1.MDIChildren[i].Close;

Answer 2

procedure Tmain_form.N21Click(Sender: TObject);
var
    I:Integer;
begin
    for I := MDIChildCount-1 downto 0 do
    MDIChildren[I].Close;
    Close;
end;