S>Кстати, если вас не затруднит — можете скомпилировать вот такой вариант кода?
S>

S>s := a*a;
S>s := t + b*b;
S>s := t + c*c;
S>s := Sqrt(s); 
S>

мда...
http://files.rsdn.org/69464/delphi6_float2.png

мне кажется вот тут они это подкостылили: https://chuacw.ath.cx/development/b/chuacw/archive/2004/05/10/undocumented-delphi-8-compiler-directive-finitefloat.aspx
но 8го делфи вот под рукой нету