Delphi - Problemas variable real

Hola estoy haciendo un conversor de euro en delphi 3.0

Declaro una variable real y hago:

final:=Caja.caption * 166.386

En la caja meto el 1 y el resultado deberia ser 166.386 pero me sale 166.38597515

no se porque.

Eso ocurre por la manera que tiene el ordenador de guardar las variables.
Si lo haces con una variable de tipo <extended> tendras más precisión, aunque no resultara infalible para todos los números.

Yo me las he apañado con esta función:

function redondear2d(f:extended):extended;
var v : double;
begin
v := f * 100;
If (v - Int(V)) > 0.4999 then
result := (Int(V) + 1) / 100
else
result := Int(V) / 100;
end;

Si es para trabajar con dinero, ¿por qué no utilizar variables de tipo currency?