[Casimiro Notevi]

También es porque en los case anidados no has puesto constantes en los valores:

Código Delphi [-]
(a<7)frmFactura.stgFactura.Cells[2,0]:= inttostr(a*750));

Eso no vale, debes poner valores constantes. También te faltarían los dos puntos ':'