delphi 7中用single类型的数运算得出的结果有问题如何解决

例如
同样的计算 在VC++中 使用 float型变量计算 1/3.0得出结果为0.333333
delphi7中 用single类型变量计算得出的结果是0.333333343267441
是什么原因？怎样才能把后面不正确的部分去掉？
本人菜鸟 各位大哥帮忙啦

如这段：
var
a,i:integer;
b:single;
begin
a:= 2;
b:= 0;
for i:= 2 to a do
begin
b := b+(1/(i*i-1));
end;
end

var
i,j:Single;
begin
i:=1;
j:=3.0;
ShowMessage(FloatToStr(i/j));
end;

结果：
0.333333333333333
WinXP + DELPHI7 with Update