那位帮我搞定多线程！！！(100分)

本人刚用DELPHI，对多线程没有任何概念，现在要做的程序必须是多线程的，
其中一个线程在不停在循环执行一系列（已经设定好的）指令，
在有其它操作的时候则另开线程执行另一系列相应指令（应该和上面一个线程穿插轮流执行
请富翁给出思路及详细操作方法、代码，谢谢

用TThread，delphi自带的demoS中有多线程的例子，照着做，并不难。

[8D]
创一主线程，当有任务时
从主线程中创建一辅助线程，让辅助线程不停循环执行一系列（已经设定好的）指令，

看DELPHI的DEMO，也可以和我联系，qq 775033

procedure TForm1.FormDestroy(Sender: TObject);
// Terminate any threads still running
begin
if (MyThread1 <> nil) and (Thread1Active = true) then
begin
MyThread1.Terminate;
MyThread1.WaitFor;
// wait for it to terminate
end;
if (MyThread2 <> nil) and (Thread2Active = true) then
begin
MyThread2.Terminate;
MyThread2.WaitFor;
end;
end;

接受答案了.