А в инде все готово...
procedure TForm1.FormCreate(Sender: TObject);
begin
IdUDPServer1.ReuseSocket:=TIdReuseSocket.rsTrue;
IdUDPServer1.DefaultPort:=9898;
IdUDPServer1.Active:=true;
end;
procedure TForm1.IdUDPServer1AfterBind(Sender: TObject);
begin
IdUDPServer1.Bindings[0].AddMulticastMembership('224.0.0.50');
end;