IdUDPServer.UDPRead wird nicht aufgerufen

[RobertP]

Hallo,
ich hab ein kleines Problem mit dem UDP Server von den Indys in einem Konsolenprogramm:
UDPRead wird nicht aufgerufen. Der Broadcast funktioniert und die Antwort kommt auch (mit Wireshark überprüft). udp.ReceiveString funktioniert auch.

Was mach ich falsch?

Delphi-Quellcode:

type
  TUDPRead = class
    procedure UDPRead(Sender: TObject; AData: TBytes;
      ABinding: TIdSocketHandle);
  end;

var
  readUDP : TUDPRead;
  udp : TIdUDPServer; 

procedure TUDPRead.UDPRead(Sender: TObject; AData: TBytes; ABinding: TIdSocketHandle);
begin
  Writeln('read');
end;

begin
  udp := TIdUDPServer.Create(nil);
  udp.OnUDPRead := readUDP.UDPRead;
  udp.Broadcast(cast, 1900);
  ReadLn;
end.