循环一个组件上的组件

procedure TfrmTopItemLog.Button4Click(Sender: TObject);
var
  top_canyu_col: string;
  I: Integer;
begin
  //-----------------------------
  {获取参与聚合的列}
  for I := 0 to RuKuHuiZongGroupBy_pnl.ControlCount-1 do
  begin
    if RuKuHuiZongGroupBy_pnl.Controls[I] is TCheckBox then
    begin
       ShowMessage(TCheckBox(RuKuHuiZongGroupBy_pnl.Controls[I]).Caption);
    end;
  end;
end;

RuKuHuiZongGroupBy_pnl.Controls[I]// 返回的是一个组件  至于为何用 is 还不清楚  有时间再 整理