[[maeyanes]]

Hay un error en las líneas:

Código Delphi [-]
ZQInserta.ParamByName(:fecha).AsDate:=Now;
  ZQInserta.ParamByName(:VenFact).AsDate:=ventafactura;//Variable
  ZQInserta.ParamByName(:VenTot).AsDate:=ventatotal;/variable

El nombre de los parámetros que se le pasa a ParamByName tiene que ser un string:

Código Delphi [-]
  ZQInserta.ParamByName('fecha').AsDate:=Now;
  ZQInserta.ParamByName('VenFact').AsDate:=ventafactura;//Variable
  ZQInserta.ParamByName('VenTot').AsDate:=ventatotal;/variable

Saludos...