[defcon1_es]

Código Delphi [-]
          for j:= 0 to pago.ControlCount -1do
          begin              //si es un checkbox lo guardo en la variable cb
              if(pago.Controls[j] is TCheckBox)then cb:= TCheckBox(pago.Controls[j]);
              //si es un label (monto del pago) lo almaseno en la variable monto
              if(pago.Controls[j] is TLabel)then
              begin
                monto:= TLabel(pago.Controls[j]); //Creo que te falta esta línea...
                if(monto.Tag=2)then subtotal:= StrToFloat(monto.Caption);               
              end;
          end;