IdTCPServer + IdTCPClient Endlosschleife

[SyntaxXx]

Hallo zusammen,
ich beschäftige mich gerade mit den IdTCPServer und IdTCPClient Komponenten.
Ich habe jetzt das Problem, dass sobald ich mich mit dem Server verbinde, er sich komplett aufhängt, weil er in eine Endlosschleife in der Execute-Methode gerät.

Jetzt stellt sich mir die Frage, warum?


Server:

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
begin
  AContext.Connection.Socket.WriteLn('Willkommen');
end;

Delphi-Quellcode:

procedure TForm1.StartServerClick(Sender: TObject);
begin
  IdTCPServer1.Bindings.Add.SetBinding('127.0.0.1', 8080);
  IdTCPServer1.Active:= True;
end;

Client:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTCPClient1.Host:= '127.0.0.1';
  IdTCPClient1.Port:= 8080;

  IdTCPClient1.Connect;
  IdTCPClient1.SendCmd('Test');
end;

Wenn ich statt dem Client mich via Telnet am Server anmelde, dann bekomme ich abertausende Zeilen mit "Willkommen" ausgegeben.