[[Bicho]]

Hola,

ahora mismo no tengo Delphi a mano, pero creo recordar que es simplemente así:

Código Delphi [-]
function TotalControls(container: TWinControl;
 classType: TClass) : integer;
var
  i: integer;
begin
  result := 0;
  for i := 0 to container.ControlCount-1 do begin
    if (container.Controls[i] is classType) then begin
      Inc(result);
     
      if (container.Controls[i] is classType).Text = 'Hola' then ...
  
    end;
  end;
end;

Si voy mal, por favor que me corrigan.

Saludos