delphi中使用for循环遇到的问题

今天在写程序时，使用了for循环，发现一个问题，for循环的基本形式为：

for i:=0 to count do

其中如果count在循环的过程中，发生变化时（如：循环显示列表的各项，但在运行过程中又往列表中加入了新项，这时列表的总项数就发生了改变），就会出现问题。

下面一个小例子说明下，

如果count 起初是5，在循环的过程中将其增加到10，则for循环仍旧按照5来运行，如：

num := 0;
count := 5;

for i:=0 to count do
begin
    num := num + 1;
    if count <10 then
        count := count + 1;
end;

执行程序后，num的值是6，for循环忽略了count值的变化，但是如果使用while循环

num := 0;
count := 5;

while (i<=count) do
begin
       num := num + 1;
       if count < 10 then
         count := count + 1;
       i:= i+ 1;
end;

执行程序后，num的值是11，说明while并没有忽略了count值的变化，而是每一次都取一次count的值。