Suma de dos Edit precio + IVA

[ecfisa]

Hola Luis.Lapuente, bienvenido a Club Delphi

Como a todos los que se inician te invitamos a leer nuestra guía de estilo.

Empezado por Luis.Lapuente

...
//En el edit código tengo esto
ADOTableImpuesto.filter:= 'CodProd = ' + QuotedStr ( Codigo.Text );
ADOTableImpuesto.Filtered:= true;
igv.Text:=ADOTableImpuesto.fieldbyname('Monto').asstring;
ADOTableProductos.filter:= 'CodProd =' + QuotedStr ( Codigo.Text );
ADOTableProductos.Filtered:= true;
SubTotal.Text:= ADOTableProductos.fieldbyname('Precio1').AsString;

//Y en el edit subtotal tengo esto y lo estoy trabajando en SUBTOTALCHANGE
var
A: Real;
B: Real;
begin
A :=strtofloat(subtotal.Text) ;
B :=strtofloat(edit1.Text);
total.text:=floattostr(a-b);

Mi problema es que me arroja un error ( “is not a valid floating point value.)
...

También revisa que la propiedad Text de edit1 contenga un número decimal válido y no caracteres inconvertibles o esté vacío al momento de producirse el evento OnChange del TEdit subtotal.

Saludos