我用IDTCPCLIENT 新开了一个线程用WHILE(TRUE)来接收数据
数据倒是一条不漏能接收到 但是主窗体不响应消息..

/*线程内的方法*/
void __fastcall TCPR::Recv(){
AnsiString msg="";
while(recvflag&&TC->Connected()){
msg=TC->IOHandler->ReadLn();
if(msg!="")DoRecv(this,msg);
}
}