[cyborgg4655]

как передать сообщение средствами UDP?

Отправляю так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Send('privet', nil);
end;

Принимаю так:

Код:

procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  AData: TBytes; ABinding: TIdSocketHandle);
begin
showmessage(IdUDPClient1.ReceiveString());
end;

Но выскакивает пустой месаджбокс.