for循环出错,进来帮我解决一下(10分)

function ThreadRun1(Parameter: Pointer): Integer

var
MyForm:TFrmBeginThread;
i:integer;

begin
MyForm:=FrmBeginThread;
i := 0
//初始值为0
for i:=0 to 10 do //循环0到10
begin

if i = 10 then i := 0
// 如果i遇到10则i变为0,无限循环,编译时,这句出错,不知道哪里错了
FrmBeginThread.LbCount1.Caption:=inttostr(i);
end;
end;

循环内不允许对循环变量赋值

请用while,repeat等不要用for

这兄弟关于这个0-10循环的问题转了N次了，还在FOR呢。。。。
一次10分，一次10分的在那往出冒。。。。

接受答案了.