for j:= 0 to pago.ControlCount -1do
begin if(pago.Controls[j] is TCheckBox)then cb:= TCheckBox(pago.Controls[j]);
if(pago.Controls[j] is TLabel)then
begin
monto:= TLabel(pago.Controls[j]); if(monto.Tag=2)then subtotal:= StrToFloat(monto.Caption);
end;
end;