도움이 되실지 이벤트에 보면RxChar 이벤트에 코딩 하며 됩니다
전 시리얼에서 받아서 다서 소켓에 보내는 부분입니다
보시고 도웁 되시길....

void __fastcall TFrm_Main::Com_PortRxChar(TObject *Sender, int Count)
{
   try
   {
       byte ReadBuf[11];
       AnsiString str;

       if (Count >= 10)
      {
          IsRecive = false;
         Re_Count = 0;
          Com_Port->Read(ReadBuf, Count);

          for(int i = 0; i < Count; i++)
          {
             str = str + IntToHex(ReadBuf[i],2);
          }
         LogMsg("Signboard Ack Msg : " + str );
          ReadBuf[0] = 0x01;
          Svr_Socket->Socket->Connections[0]->SendBuf(ReadBuf,1);
      }
   }
   catch(Exception &E)
   {
       LogMsg("[E:Com_PortRxChar] : " + E.Message);
   }
}
//---------------------------------------------------------------------------