Delphi - Problema con ecuacion

Hola a todos tengo un problema al ejecutar esta ecuacion mi resultado debe ser 0 pero no es asi alguien me puede decir por que....

var
a,b,c:Real;
begin
a := 690.94;
b := 55.28;
c := 635.66;
a := a - b; // el resultado debe ser (a = 635.66)
a := a - c; // el resultado debe ser (a = 0)
ShowMessage(floattostr(a)); // sorpresa no es "0" es "1.13686837721616E-13"

Espero alguien me pueda ayudar

Besitos..

No se por qué ocurre, pero si se como se soluciona.

Cambia esta linea

a := a - c;

por esta otra

a := StrToFloat(FloatToStr(a)) - StrToFloat(FloatToStr(c));

y queda así

a := 690.94;
b := 55.28;
c := 635.66;
a := a - b;
a := StrToFloat(FloatToStr(a)) - StrToFloat(FloatToStr(c));
ShowMessage(floattostr(a));

Hola

me parece que con un formato se soluciona
prueba esto..

var
a,b,c:Real;
begin
a := 690.94;
b := 55.28;
c := 635.66;
a := a - b; // el resultado debe ser (a = 635.66)
a := a - c; // el resultado debe ser (a = 0)

ShowMessage(FormatFloat('0',a));

//Saludos..