还是多线程通信有关问题，请求妖哥来解答

************************************************************************
Unit_Main.cpp文件
//---------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit_Main.h"
#include "Unit_DM.h"
#include "Unit_Ping.h"
#include "Unit_ADOQ.h"
//---------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{

        thread_ADOQ = new TADOQThread(false,PingResultMemo);
    
    thread_Ping=new  TPingThread(true,
                "192.168.1.1",
                PingResultMemo,
                thread_ADOQ->ThreadID);

        thread_Ping->Resume();
                
        
}
//---------------------------------------
Unit_Main.h文件里声明了：

        TPingThread * thread_Ping;
        TADOQThread * thread_ADOQ;
    
    TMemo *PingResultMemo;





************************************************************************

Unit_Ping.cpp文件
//---------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit_Ping.h"
#include "Unit_DM.h"

#define MY_MSG WM_USER+100

#pragma package(smart_init)
//---------------------------------------

//   Important: Methods and properties of objects in VCL can only be
//   used in a method called using Synchronize, for example:
//
//      Synchronize(UpdateCaption);
//
//   where UpdateCaption could look like:
//
//      void __fastcall TPingThread::UpdateCaption()
//      {
//        Form1->Caption = "Updated in a thread";
//      }
//---------------------------------------

__fastcall TPingThread::TPingThread(bool CreateSuspended,AnsiString sIp,TMemo *ResultMemo,int thread_ADOQ_ID)
        : TThread(CreateSuspended)
{
        IP = sIp;
        BMemo = ResultMemo;
        Interval = 10000;
        ADOQ_ID =  thread_ADOQ_ID;


        ICMP_Ping= new TIdIcmpClient(NULL);
        ICMP_Ping->BufferSize = 8192;
        ICMP_Ping->Port = 0;
        ICMP_Ping->Protocol = 1;
        ICMP_Ping->ReceiveTimeout = 5000;
        ICMP_Ping->Host = IP;
        ICMP_Ping->OnReply =  ICMP_PingReply;

}
//---------------------------------------
__fastcall TPingThread::~TPingThread()
{
    delete ICMP_Ping;
}
//----------------------------------------
void __fastcall TPingThread::Execute()
{
        //---- Place thread code here ----

        while( !Suspended )
        {
                try
                {
                      ICMP_Ping->Ping();
                      Application->ProcessMessages();
                      Sleep(Interval);
                }
                catch(...)
                {
                      Suspended = true;
                }

        }

}
//---------------------------------------
void __fastcall TPingThread::ICMP_PingReply(TComponent *ASender,
      const TReplyStatus &AReplyStatus)
{
        AnsiString S ;

        if( AReplyStatus.ReplyStatusType == rsEcho )
        {
                BMemo->Lines->Add( Now().CurrentDateTime().FormatString("yyyyMMdd HH:mm:ss") + AnsiString("；") + IP + AnsiString("；Ping 成功！") );

                S = AnsiString("update hx_monitor set Ping文字状态=")
                        + AnsiString("'Ping 成功！'")
                        + AnsiString(" where IP地址=")
                        + AnsiString("'") + IP + AnsiString("'")
                        ;


                if( PostThreadMessage(ADOQ_ID,MY_MSG,(WPARAM)S.c_str(),0) )
                {
                        BMemo->Lines->Add( Now().CurrentDateTime().FormatString("yyyyMMdd HH:mm:ss")
                        + AnsiString("；") + IP + AnsiString("发送消息成功！线程ID：")
                        + AnsiString(ADOQ_ID)
                          );
                }

                if( !PostThreadMessage(ADOQ_ID,MY_MSG,(WPARAM)S.c_str(),0) )
                {
                        BMemo->Lines->Add( Now().CurrentDateTime().FormatString("yyyyMMdd HH:mm:ss")
                        + AnsiString("；") + IP + AnsiString("发送消息不成功！错误号：")
                        + AnsiString(GetLastError())
                        + AnsiString("；线程ID：")
                        + AnsiString(ADOQ_ID)
                         );
                }


        }

}
//---------------------------------------
Unit_Ping.h文件声明了：

    TIdIcmpClient *ICMP_Ping;

        TMemo * BMemo;
        AnsiString IP;
        int Interval;     

        int ADOQ_ID;






************************************************************************
Unit_ADOQ.cpp文件

//---------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit_ADOQ.h"
#include "Unit_DM.h"

#define MY_MSG WM_USER+100

#pragma package(smart_init)
//---------------------------------------

//   Important: Methods and properties of objects in VCL can only be
//   used in a method called using Synchronize, for example:
//
//      Synchronize(UpdateCaption);
//
//   where UpdateCaption could look like:
//
//      void __fastcall TADOQThread::UpdateCaption()
//      {
//        Form1->Caption = "Updated in a thread";
//      }
//---------------------------------------

__fastcall TADOQThread::TADOQThread(bool CreateSuspended,TMemo *ResultMemo)
        : TThread(CreateSuspended)
{
        CMemo = ResultMemo;

        //PeekMessage(&msg,NULL,WM_USER,WM_USER,PM_NOREMOVE);
}
//---------------------------------------
void __fastcall TADOQThread::Execute()
{
        //---- Place thread code here ----
    

        CoInitialize(NULL);
        ADOQ_update_status = new TADOQuery(NULL);
        ADOQ_update_status->Connection = DM->ADOConn_226_11;//Unit_DM里面的连接

        while( !Suspended )
        {
                GetMessage(&msg,0,0,0); 

                switch(msg.message)
                {
                        case MY_MSG:
                                char * pInfo= (char *)msg.wParam;

                                CMemo->Lines->Add( Now().CurrentDateTime().FormatString("yyyyMMdd HH:mm:ss")
                                                + AnsiString("接收到的消息如下：")
                                                + AnsiString(pInfo)
                                                 );
                                if( AnsiString(pInfo).Trim() != "" )
                                {
                                        ADOQ_update_status->SQL->Clear();
                                        ADOQ_update_status->SQL->Add( AnsiString(pInfo) );
                                        ADOQ_update_status->ExecSQL();
                                }
                }

        }

        delete ADOQ_update_status;
        CoUninitialize();


}
//---------------------------------------


Unit_ADOQ.h声明了：

        TMemo * CMemo;

        MSG msg;

        TADOQuery * ADOQ_update_status;



************************************************************************