Delphi 退出时注销子窗口应注意的问题

procedure TForm1.FormCreate(Sender: TObject);
begin
 FList:=TStringList.Create;
 form2:=tForm2.Create(Application);
 Form2.Parent:=Self.Panel1;
 Form2.Show;
 FList.AddObject(‘11‘,Form2);

end;

procedure Tform1.FreeForm;
var
  I:integer;
begin
  IF not Assigned(FList) then exit;
  for I:=0 to FList.Count-1 do
   begin
     IF not Assigned(FList.Objects[I]) then Continue;
     TForm(FList.Objects[I]).Free;
     FList.Objects[I]:=nil;
   end;
  FreeAndNil(FList);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeForm;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  IF Self.chkFreeChildForm.Checked then
     FreeForm;
end;