case cmbCantidad.ItemIndex of
(0):begin
case a of
(a<7):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*750); (a=7):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*4900);
(a=15):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*8000);
end;
(1):begin
case a of
(a<7)frmFactura.stgFactura.Cells[2,0]:= inttostr(a*750));
(a=7):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*4900);
(a=15):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*8000);
end;
(2):begin
case a of
(a<7)frmFactura.stgFactura.Cells[2,0]:= inttostr(a*750));
(a=7):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*4900);
(a=15):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*8000);
end;
end;
end;
end;
end;