Send Packet

[rauros]

Pues de aquí no sé que falla (he puesto 127.0.0.1).

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
        IdUDPClient1.Send(edit1.text);
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
Cadena: TStringStream;
begin
cadena:=TStringStream.Create('');
cadena.CopyFrom(AData, 255);
showmessage(cadena.DataString);
end;

Yo es que de programación entiendo bastante, pero cuando se llega a conexión con otros pc me cuesta comprender.