DWORD WINAPI __ThreadEncoderSrcKey(LPVOID lpArg)
{
TForm* pCurForm = (TForm*) lpArg;        pCurForm->func();    return 0;
}void TForm::func()
{    //Memo_Log->Clear();   //注释掉就对了
    Label_ProcessMsg->Font->Color = clTeal;
    Label_ProcessMsg->Caption = "Begin...";    .....
}void TForm::main()
{
    DWORD   dwThreadId;
    m_hThread = ::CreateThread(0, 0, __ThreadEncoderSrcKey, LPVOID(this), 0, &dwThreadId);
}