uso de case

[juaarias]

Código Delphi [-]
case cmbCantidad.ItemIndex  of
    (0):begin
        case a of
        (a<7):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*750); //me señala desde aca paa abajo
        (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;