Datenaustausch über INet?

[Teekeks]

Hmmm, ich hab jetzt das hier:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  TCP.Connect('localhost',5555);
  l.Items.Add('Verbinden mit localhost...');
  while TCP.Connecting do Application.ProcessMessages;
  l.Items.Add('Verbunden mit localhost.');
  TCP.Listen(5555);
  tcp.SendMessage('asd');
  l.Items.Add('Nachricht "asd" gesendet...');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  l.Items.Add('Verbindung abbrechen...');
  TCP.Disconnect;
  l.Items.Add('Verbindung abgebrochen.');
end;

procedure TForm1.TCPReceive(aSocket: TLSocket);
var m:string;
begin
  TCP.GetMessage(m,asocket);
  l.Items.Add('Nachricht "'+m+'" empfangen...');
end;

Aber anscheinend wird die Nachricht nicht empfangen...