..
void __fastcall TBaseForm::FormCreate(TObject *Sender)
{
//    UdpSocket1->LocalHost  = UdpSocket1->LocalHostAddr();
    UdpSocket1->LocalHost  = UdpSocket1->LocalHostName();
    UdpSocket1->RemoteHost = UdpSocket1->LocalHost;
    UdpSocket1->RemotePort = 9999;   // 1;     다른프로그램 설정
    UdpSocket1->LocalPort  = 1;      // 9999;
    UdpSocket1->Open();
}
void __fastcall TBaseForm::UdpSocket1Receive(TObject *Sender, PChar Buf, int &DataLen)
{
    StatusPanel->Caption = "Receive";
    memcpy( Packet, Buf, DataLen );
    if( ScanForm->Visible ) ScanForm->ViewScanBuffer( Packet, DataLen, false );
}
void __fastcall TBaseForm::SendButtonClick(TObject *Sender)
{
    char *tt = "Test";
    memcpy( Packet, tt, 5 );

    if( ScanForm->Visible ) ScanForm->ViewScanBuffer( Packet, 5, true );
    UdpSocket1->SendBuf( Packet, 5, 5 );
}

위와같이 작성했는데
아무런 응답이 없네요...
고수님들의 도움이 필요해요...