Sumas limitadas de components combobox

[*Caro*]

Empezado por Chichero

Gracias hermano eso lo coloco antes del for?

Hola Chichero, tiene que estar dentro del for, pero primero tienes que darle valores (1,2,3....) a la propiedad Tag de cada comboBox ya que por defecto es 0.

Código Delphi [-]
Ape:= StrToFloat(Edit1.Text)
  for i:= 0 to ComponentCount -1 do
    if Components[i] is TComboBox then
      with TComboBox(Components[i]) do
       if Tag in [1..4] then
        begin        
          if ItemIndex <> -1 then
           begin
             ..........................................
             ..........................................

Saluditos