下面是用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;//声明一个自己的线程

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