浮点数运算的相关问题

[zhourongbiao]

procedure TForm1.Button1Click(Sender: TObject);
var
fLevel : double;
iLevelInt, iLevelFra : integer;
begin
{输入222.20，iLevelFra = 19}
fLevel := 222.20;
iLevelInt := Floor( fLevel );
iLevelFra := Floor(( fLevel - iLevelInt ) * 100);
ShowMessage( IntToStr( iLevelFra ) );
end;

怎么输出是19？调试发现iLevelFra ＝ 20！
如果直接使用：
ShowMessage( IntToStr( Floor(20) ) );
输出就是20。
奇怪，请高手指教。

[hqhhh]

procedure TForm1.Button1Click(Sender: TObject);
var
fLevel : double;
iLevelInt, iLevelFra : integer;
begin
{输入222.20，iLevelFra = 19}
fLevel := 222.20;
iLevelInt := Trunc( fLevel );
iLevelFra := Trunc(( fLevel - iLevelInt ) * 100);
ShowMessage( IntToStr( iLevelFra ) );
end;