程序循环问题高手进来看看啊？？


我的想法是 在点击完一次按钮后 程序执行下面代码，当执行到KillTask('IEXPLORE.EXE');这句时在回到
这里
procedure TForm1.Button1Click(Sender: TObject);
beginShellExecute(Handle,nil,'IEXPLORE.EXE','edit1.text',nil,SW_hide);
ShellExecute(Handle,nil,'IEXPLORE.EXE','edit2.text',nil,SW_hide);
ShellExecute(Handle,nil,'IEXPLORE.EXE','edit3.text',nil,SW_hide);
ShellExecute(Handle,nil,'IEXPLORE.EXE','edit4.text',nil,SW_hide);
ShellExecute(Handle,nil,'IEXPLORE.EXE','edit5.text',nil,SW_hide);
ShellExecute(Handle,nil,'IEXPLORE.EXE','edit6.text',nil,SW_hide);
ShellExecute(Handle,nil,'IEXPLORE.EXE','edit7.text',nil,SW_hide);
timer1.Enabled:=true;
end;
继续循环执行代码，不知该怎样实现 请高说 给说明 最好能加上代码 谢谢！！
procedure TForm1.Button1Click(Sender: TObject);
beginShellExecute(Handle,nil,'IEXPLORE.EXE','edit1.text',nil,SW_hide);
ShellExecute(Handle,nil,'IEXPLORE.EXE','edit2.text',nil,SW_hide);
ShellExecute(Handle,nil,'IEXPLORE.EXE','edit3.text',nil,SW_hide);
ShellExecute(Handle,nil,'IEXPLORE.EXE','edit4.text',nil,SW_hide);
ShellExecute(Handle,nil,'IEXPLORE.EXE','edit5.text',nil,SW_hide);
ShellExecute(Handle,nil,'IEXPLORE.EXE','edit6.text',nil,SW_hide);
ShellExecute(Handle,nil,'IEXPLORE.EXE','edit7.text',nil,SW_hide);
timer1.Enabled:=true;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=false;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 KillTask('IEXPLORE.EXE');
end;
end.