怎样添加实数(50分)

各位专家：
再问一个问题在Form1中有一个Combobox1组件和Button1组件，在Button1的单击事件中
设置一个变量VAR R：REAL；怎样在单击Button1组件时，向Combobox1组件添加0-100的实数
值且两个数值之间相差0.1（即执行后Combobox1组件中的值为：0.1、0.2、0.3、0.4、0.5
……100）
我用的方法是：
procedure TForm1.Button1Click(Sender: TObject);
var r:real;
begin
for r:=0 to 100 do
combobox1.Items.Add(FloatToStr(0.1+r));
end;
可是执行后会出现错误有谁可以帮我解决？

//循环控制不能用real,float等
//改成这样吧:
var
i:integer;
r:real;
begin
for i:=0 to 100 do
begin
r:=r+0.1;
combobox1.Items.Add(FloatToStr(r));
end;
end;

接受答案了.

ZRWeng:
为什么执行了你的代码后Combobox1组件中的内容先开始是正常的但在5.9之后就变成了
5.99999999999999以后的数字也都变成了相同的内容（6.099999999、6.19999999999）
而且该组件内的最大值只有10而不是100这是怎么回事？