用BCB写一个最简单的多线程

下面是用BCB写的最简单的一个多线程小程序

//.cpp中的线程描述_fastcall TMyThread::TMyThread(void):TThread(true){FreeOnTerminate=true;Resume();}

//声明线程void __fastcall TMyThread::Execute()//线程功能{for(int i=1;i<4;i++)Form1->Memo1->Text=Form1->Memo1->Text+IntToStr(i)+"我得到了参数--我的线程/r/n";}void __fastcall TForm1::Button2Click(TObject *Sender)//执行线程{MyThread=new TMyThread();MyThread->FreeOnTerminate=true;}

//.h中的线程类定义//声明线程class TMyThread:public TThread{public:  __fastcall TMyThread(void);private:    void __fastcall Execute(void);};

//可以在.h的窗体类定义中加入TMyThread *MyThread;//声明一个自己的线程

这样就是一个简单的多线程程序