[[Caral]]

Hola
Ademas de lo dicho por Coso:
Podria estar afectando los espacios, trata asi:

Código Delphi [-]
var
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.Active := false;
 QFacturacion.Append;
 QFacturacion.FieldValues['NumeroFactura'] := ECodFactura.Text;
 QFacturacion.FieldValues['Cliente'] := EdiCliente.Text;
 QFacturacion.FieldValues['Direccion'] := LabDireccion.Caption;
 QFacturacion.FieldValues['FechaFactura'] := Datetimepicker1.Date;
 QFacturacion.FieldValues['Equipos'] := Editequipo.Text;
 QFacturacion.FieldValues['NCF'] := EditRNC.Text;
 QFacturacion.FieldValues['Tecnico'] := DBComboBox2.Text;
 QFacturacion.FieldValues['Monto'] := EMonto.Text;
 QFacturacion.FieldValues['Cantidad'] := Editcantidad.Text;
 QFacturacion.FieldValues['Total'] := ETotal.Text;
 QFacturacion.FieldValues['ITBIS'] := EImp.Text;
 QFacturacion.FieldValues['Descuento'] := EDesc.Text;
 QFacturacion.FieldValues['FormaPago'] := DBComboBox3.Text;
 QFacturacion.FieldValues['SubTotal'] := ESTotal.Text;
 QFacturacion.FieldValues['Desctotal'] := EDescuento.Text;
 QFacturacion.FieldValues['ITBIStotal'] := EImpuesto.Text;
 QFacturacion.FieldValues['Comentario'] := DBMemo1.Text;
   Qfacturacion.Post;
        end;

Saludos