object srv1: TIdUDPServer
    Active = True
    BroadcastEnabled = True
    Bindings = <>
    DefaultPort = 2222
    ReuseSocket = rsTrue
    Left = 192
    Top = 112
  end
  object srv2: TIdUDPServer
    Active = True
    Bindings = <
      item
        IP = '0.0.0.0'
        Port = 2222
      end>
    DefaultPort = 2222
    ReuseSocket = rsTrue
    OnUDPRead = srv2UDPRead
    Left = 264
    Top = 112
  end

procedure TForm1.srv2UDPRead(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; ABinding: TIdSocketHandle);
var
  xStream : TStringStream;
begin
  xStream := TStringStream.Create(TBytes(AData));
  Memo1.Lines.Add(xStream.DataString);
  xStream.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  srv1.Broadcast(IntToStr(Random(100)), srv1.DefaultPort);
end;