procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
 ABinding: TIdSocketHandle );
var
sts:Tstringstream;
s:string;
begin
sts:=tstringstream.Create('');
sts.Copyfrom(Adata,adata.size);
memo1.lines.add(ABinding.PeerIP+'>>> '+sts.datastring);
// Перенаправление сообщения дальше
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], length(s));
sts.free;
end;
(с) Фленов