Suma de dos Edit precio + IVA

[Luis.Lapuente]

Hola muy buenas noches ante todo saludo a toda esta comunidad… Bueno les cuento estoy creando un módulo de consulta el cual me muestra condigo, nombre, marca, imagen y precio sin impuesto, Hay esta mi problema quiero calcular el impuesto para que me lo muestre en un edit. Un pequeño ejemplo de cómo estoy trabajando
//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.)
Pido por favor si me pueden ayudar soy muy novato en esto de echo sin mentir en mi primer proyecto