procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
const AData: TIdBytes; ABinding: TIdSocketHandle);
var str:string;
begin
str:=BytesToString(Adata,en8bit);
end;
const AData: TIdBytes; ABinding: TIdSocketHandle);
var str:string;
begin
str:=BytesToString(Adata,en8bit);
end;