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]);
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;
if(cb.Checked)then total:= total+ StrToFloat(monto.Caption);
end;
end;