Баг округления плавающей точки

Procedure OnCreate;
Var
  X : Float;
Begin
  X := 123.12345678905678;
  Warning(FloatToStr(X)); //123.123456789056 - Баг в последнем числе
  
  X := 12312345678905678.0;
  Warning(FloatToStr(X)); //1.23123456789057e+16
  
  X := Cos(Pi/3);
  Warning('Cos(Pi/3) = ' + FloatToStr(X)); // Cos(Pi/3) = 0.5
End;

© RTIT