Acces Violation at address...

[franciscoca]

Gracias Defcon1, Asi es faltaba esa linea!!! pero el problema sigue siendo el mismo, porq en si revienta en la linea de cast anterior... cuando hace el if probe comentandolo y revienta en esa, o en la siguiente if(pago.Controls[j] is TLabel)then

Código Delphi [-]
for i:= 0 to  PanelPagos.ControlCount-1 do
   begin
      if(PanelPagos.Controls[i] is TAdvPanel)then
      begin
           pago:= TAdvPanel(PanelPagos.Controls[i]);
          //recorro el pago
          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]);
                 if(monto.Tag=2)then subtotal:= StrToFloat(monto.Caption);
              end;

          end;

          //si el pago esta chequeado le agrego al total el imorte del pago
          if(cb.Checked)then total:= total+ StrToFloat(monto.Caption);
      end;
   end;