Error al calcular una factura

[Yensis22]

bueno dia estoy tratando de relizar uno calculos pero cuando lo esjecuto me mande este error.

[Error] FFactura.pas(151): Unknown directive: 'a'
ese error desde la a asta la h
[Error] FFactura.pas(151): Unknown directive: 'h'

Código Delphi [-]
procedure TFFacturacion.Button3Click(Sender: TObject);
a,b,c,d,e,f,g,h :real;
begin
 a:= StrTofloat(Editcantidad.Text);
 b:= StrTofloat(EMonto.Text);
 d:= StrTofloat(EDesc.Text);
 f:= StrTofloat(EImp.Text);
 c:= a * b;
 e:= c * d / 100;
 g:= (c - e) * f / 100;
 h:= c - e + g;
 ESTotal.Text:= floatToStr(c);
 EDescuento.Text:=floatToStr(e);
 EImpuesto.Text:=floatToStr(g);
 ETotal.Text:= floatToStr(Round(h));
 Qfacturacion.SQL.Text := 'Insert into Facturacion 
 Values ('+QuotedStr(ECodFactura.Text)+', '+QuotedStr(EdiCliente.Text)+ ', 
 '+ LabDireccion.Caption+ ' :FechaFactura, '+QuotedStr(Editequipo.Text)+ ', 
 '+QuotedStr(EditRNC.Text)+ ', '+QuotedStr(DBComboBox2.Text)+', 
 '+QuotedStr(EMonto.Text)+', '+
                        QuotedStr(Editcantidad.Text)+', '+QuotedStr(ETotal.Text)+', 
 '+QuotedStr(EImp.Text)+', '+QuotedStr(EDesc.Text)+', '+QuotedStr(DBComboBox3.Text)+ ', 
'+QuotedStr(ESTotal.Text)+ ', '+QuotedStr(EDescuento.Text)+')', '+
                        QuotedStr(EImpuesto.Text)+')';
 Qfacturacion.Parameters.ParamByName('FechaFactura').Value:= DateToStr(DateTimePicker1.Date);
 Qfacturacion.ExecSQL;
  end;
end.