🚀 go-pugleaf

I write a multicast receiver program !
But It doesnt work!
Who can tell me where does it go wrong ?
thanks

this is the source code using BCB 6 AND INDY 9 !



#include <vcl.h>
#pragma hdrstop

#include "RcvForm1Main.h"
//--------------------------------------------------------------------------
-
#pragma package(smart_init)
#pragma link "IdIPMCastBase"
#pragma link "IdIPMCastClient"
#pragma resource "*.dfm"
TRcvForm1 *RcvForm1;

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

void __fastcall TRcvForm1::StartBtn1Click(TObject *Sender)
{
 RcvLogMemo1->Clear();
 IdIPMCastClient1->MulticastGroup="225.0.30.30";
 IdIPMCastClient1->DefaultPort=3000;
 IdIPMCastClient1->BufferSize=8192;
 IdIPMCastClient1->Active=true;
}
//--------------------------------------------------------------------------
-

void __fastcall TRcvForm1::CloseBtn1Click(TObject *Sender)
{
 IdIPMCastClient1->Active=false;
 Application->Terminate();
}
//--------------------------------------------------------------------------
-

void __fastcall TRcvForm1::IdIPMCastClient1IPMCastRead(TObject *Sender,
      TStream *AData, TIdSocketHandle *ABinding)
{
 char RcvMsg[8192];
 AData->ReadBuffer(RcvMsg,sizeof(RcvMsg));
 RcvLogMemo1->Lines->Add(AnsiString(RcvMsg));
}