IdUDPServer1.Send('10.10.1.255',50000,'<USERNAME>'+'Дима');

Procedure UDPSend(S:String);

Begin

  With Form1.IdUDPServer1 do

    if Active then Send('10.10.1.255',50000,S{,IndyTextEncoding_UTF16BE Тут что поставить?});

End;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

 IdUDPServer1.Bindings.Add.Port:=50000;

 IdUDPServer1.Active:=True;

end;

 

procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;

  const AData: TIdBytes; ABinding: TIdSocketHandle);

Var

  RecieveBuf:String;

begin

  RecieveBuf:={UTF8ToUnicodeString Тут что поставить?}(BytesToString(AData));

 

  ListBox1.Items.Add(RecieveBuf);

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  UDPSend('<USERNAME>'+'Дима');

end;

  IdUDPServer1.Send('10.10.1.255',50000,'<USERNAME>'+'Дима',IndyTextEncoding_UTF8);

 

  RecieveBuf:=BytesToString(AData,enUTF8);