Error Incomprensible

[altp]

Buenas tardes foreros.

No se si esta pregunta va bien akí

Les cuento mi problema

Tengo una tabla en Memoria (TRxMemoryData) con varios campos, en concreto 2 de ellos son Debe y Haber (son de tipo TIBBCDField), el caso es que hago lo siguiente:

Código Delphi [-]
var
   Importe : Extended;
begin
   Importe := 0;
   while not Rx.Eof do begin
      Importe := Importe + Rx.FieldByName('Debe').AsFloat - Rx.FieldByName('Haber').AsFloat;
      Rx.Next;
   end;
end;

Tengo ese código, para el ejemplo que les pongo el while lo recorre 3 veces:
1ª vuelta --> Debe = 553,11 --> Haber = 0 --> Importe = 553,11
2ª vuelta --> Debe = 0 --> Haber = 36,19 --> Importe = 516,92
3ª vuelta --> Debe = 0 --> Haber = 516,92 --> Importe = 5,6843418861e-14

A qué se debe que no me salga 0?

Les agradecería cualquier ayuda.

Gracias