Маленький пример:
var x:real;
begin
x:=(4-6)/5;
DrawText (''+x, 5, 5);
repaint;
Delay(5000);
end.
Эмулятор выдает следующий результат: 0.0000
По калькулятору (да и в уме) ответ получается -0.4.
Стоит указать в делителе (знаменателе) дробную часть и всё работает.
x:=(4-6)/5.0;
http://forum.boolean.name/showthread.php?t=9570