[[egostar]]

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