关于循环的控制！高手帮下 多谢

关于循环的控制！！高手帮下 谢谢
现在我要做的是用一个循环来储存数据  
        但是储存的速度比较慢   不能一次性存     所以在   储存完毕后   我用了个返回值  
来控制   循环     但是   不知道   怎么让循环停下   等待   返回值
       
        返回值的检查   用了个TIMER   来检查   储存完毕后的   返回值  
       
        举例     for   i=1   to   10   do
                    begin  
                            if   Over=1   then   ……
                            else   就是这里不晓得该写什么让循环等待   返回值



[解决办法]
var
I, Over : integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Over = 1 then
begin
Over := 0;
Inc(I);//I := I+1;
//你要做的“存储”在这里做
//存储完成，Over自然就变为1了，然后继续
end;
if I > 10 then Timer1.Enabled := false;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
Timer1.Interval := 10;
I := 1;
Over := 1;
Timer1.Enabled := true;
end;