Delphi中释放父控件里的所有子控件

procedure TFrmMain.ClearControls(AParent: TWinControl);var  i: Integer;begin  for i := AParent.ControlCount - 1 downto 0 do begin    if not AParent.Controls[i].InheritsFrom(TWinControl) then Continue;    try      if TWinControl(AParent.Controls[i]).ControlCount > 0 then begin        ClearControls(TWinControl(AParent.Controls[i]));      end;      AParent.Controls[i].Free;    except    end;  end;end;