[[eduarcol]]

No tengo delphi a mano pero esto deberia funcionar, si me equivoco me corrigen

Código Delphi [-]
for nIdx := 0 to MiForma.ComponentCount - 1 do
begin
   if Miforma.componets[nIdx] is Miclase then
   begin
      if MiClase(Miforma.componets[nIdx]).CodPer = elcodigo then
      begin
          //Lo que hay que hacer
      end; 
   end;
end;

no se si habra alguna forma magica al menos que te sepas el nombre del componente