一个多线程，挂起，唤醒，结束。创建的问题
本人新手，请各位大哥哥大姐姐多多指点一下。我想实现用delphi线程类来做一下操作。
delphi线程类：挂起，唤醒，结束，创建。
请各位大哥哥大姐姐帮解释一下。越详细越好。谢谢；
注意是delphi线程类
[解决办法]
unit main;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs,myThread, StdCtrls;typeTForm1 = class(TForm) Label1: TLabel; Button1: TButton; Button2: TButton; Button3: TButton; Label2: TLabel; Label3: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormCreate(Sender: TObject);private procedure TThreadFinsh(Sender:TObject);public { Public declarations }end;varForm1: TForm1;t1,t2,t3:TThread;implementation{$R *.dfm}procedure TForm1.TThreadFinsh(Sender:TObject);beginShowMessage('一个线程完毕！');end; procedure TForm1.Button1Click(Sender: TObject);beginif Button1.Caption='开始1' thenbeginButton1.Caption:='关闭';t1.Resume;endelsebeginButton1.Caption:='开始1';t1.Suspend;end; end;procedure TForm1.Button2Click(Sender: TObject);beginif Button2.Caption='开始2' thenbeginButton2.Caption:='关闭';t2.Resume;endelsebeginButton2.Caption:='开始2';t2.Suspend;end;end;procedure TForm1.Button3Click(Sender: TObject);beginif Button3.Caption='开始3' thenbeginButton3.Caption:='关闭';t3.Resume;endelsebeginButton3.Caption:='开始3';t3.Suspend;end;end;procedure TForm1.FormCreate(Sender: TObject);begint1:=TmyThread1.Create(Label1,10);t1.OnTerminate:=TThreadFinsh;t2:=TmyThread2.Create(Label2,20);t2.OnTerminate:=TThreadFinsh;t3:=TmyThread3.Create(Label3,30);t3.OnTerminate:=TThreadFinsh;end;end.线程单元：unit myThread;interfaceusesClasses,Windows,SysUtils,Forms,StdCtrls;typeTTestThread = class(TThread)private FLabel:TLabel; FSleepDec:Integer;protected procedure Execute; override;public constructor Create(lbl:TLabel;sleepSec:Integer);end;TmyThread1=class(TTestThread) end;TmyThread2=class(TTestThread) end;TmyThread3=class(TTestThread) end;implementationuses main;{ TTestThread }constructor TTestThread.Create(lbl:TLabel;sleepSec:Integer); //参数传递beginFLabel:=lbl;FSleepDec:=sleepSec;FreeOnTerminate:=True; //让线程终止是触发OnTerminate事件inherited Create(True);//不立即执行，只有调用resume才开始end;procedure TTestThread.Execute;vari:Integer;beginfor i:=0 to 1000 dobeginif terminated then Break;FLabel.Caption:=IntToStr(i);Sleep(FSleepDec);end;end;end.