用 Windows api 编写一个多线程应用程序

TForm1 *Form1;
HANDLE      hthread;
DWORD WINAPI funcproc();                                // thread data

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btn_1Click(TObject *Sender)
{
    if (hthread == NULL) {                          // 不存在则创建线程
        hthread = CreateThread(
            (LPSECURITY_ATTRIBUTES)0,               // default security attributes
            0,                                      // use default stack size
            (LPTHREAD_START_ROUTINE)funcproc,       // thread function
            NULL,                                   // argument to thread function
            0,                                      // use default creation flags
            NULL);                                  // returns the thread identifier
    } else {                                        
        ResumeThread(hthread);    // 恢复线程
    }

}
//---------------------------------------------------------------------------
DWORD WINAPI funcproc()// thread data
{
    int i;

    while(true)
    {
        i++;
        Sleep(50);
        Form1->lbl_1->Caption = i;
    }
}
//------------------------------挂起线程---------------------------------------------
void __fastcall TForm1::btn_2Click(TObject *Sender)
{
    SuspendThread(hthread);   //
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    TerminateThread(hthread, (DWORD)0); 
    CloseHandle(hthread);
    hthread = NULL;
}
//--------------------------- 释放线程------------------------------------------------
void __fastcall TForm1::btn_3Click(TObject *Sender)
{
   TerminateThread(hthread, (DWORD)0);
   CloseHandle(hthread);
   hthread = NULL;
}