Odczyt danych za pomocą TIdUDPServer

Chciałbym odczytać dane z urządzenia elektronicznego, które wysyła dane do mojego komputera przez UDP. Zaprogramowałem serwer UDP w Delphi. Wyjątek występuje w klasie EIdSocketError (Failure # 10049). Oto mój kod:

procedure TForm1.Button1Click(Sender: TObject);
begin
   IdUDPServer1.Bindings.add.IP := '192.168.1.1';  //Electronic device ip
   IdUDPServer1.Bindings.add.Port:= 49152;         //Electronic device port   
   IdUDPServer1.OnUDPRead:= UDPRead;
   IdUDPServer1.Active:=True;

end;

procedure TForm1.UDPRead (Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var
   bytes_received: integer;
begin
   bytes_received:=AData.size;
end;

Co ja robię źle?

Z góry dziękuję

questionAnswers(1)

yourAnswerToTheQuestion