Hola
No entiendo para que usas esos tipos de datos, yo usaria esto,
Código Delphi
[-]
Var
Precio,iva,total : Real;
begin
Precio := 0;
form1.Table4.First;
while Not form1.Table4.Eof do begin
Precio := Precio + form1.Table4.FieldbyName('Total').Value;
form1.Table4.Next;
end;
edit4.Text := format('%m',[Precio]);
iva:= Precio * 0.09;
edit5.Text := format('%m',[iva]);
edit6.Text := format('%m',[Precio+iva]);
Letras1.Numero := Precio+iva;
Letras1.Moneda := 'pesos';
Letras1.Centavos := 'centavos';
ShowMessage(Letras1.AsString);
end;
Salud OS