void __fastcall TDataModuleComm::UdpSocket1Receive(TObject *Sender,
      PChar Buf, int &DataLen)
{
  TUdpSocket *UdpSocketCur =  static_cast<TUdpSocket *>(Sender);

   int    size = 0;
    unsigned char szBuf[1024];
    int    nRecvCount = 0;
    int     sucess = 0;
    FILE *fp;
    SYSTEMTIME  ttt;

    FormTot->Edit1->Text = "in";

    memset(szBuf, 0, sizeof(szBuf));
    size = UdpSocketCur->ReceiveBuf(szBuf, DataLen, size);

//   fn_MessageView(szBuf, 1, size, "RX");

    FormTot->Memo1->Lines->Add((char *)szBuf);
    FormTot->Edit1->Text = IntToStr(szBuf[0])+"_"+IntToStr(szBuf[1])+IntToStr(szBuf[2])+IntToStr(szBuf[3]);
}

받는부분이 전혀 안되는것 같아요...
아무거나 들어오기만 하면 in 이라고 써지게 했는데 안써지네요..

도와주세용~