TCheckBox ckbTemp;
TComponet Object;
for i:=0 to ComponetCount-1 do begin
   Object := Componet[i];
   if Object.ClassNameis(TCheckBox) begin
       ckbTemp = TCheckBox(Object);
       Dis_pro[StrToInt(ckbTemp.name.substring(9,3))] = ckbTemp;
   end;
end好久没有用Delphi了,反正方法就是这样,判断每一个对象基类名,如果是TCheckBox则到对象的名称,最后根据名称进行你要的处理,其中有些函数要你自己去捉摸,如果你要C++版,我有现成的函数。