TCPClient Problem

[Vampyr09]

Okay..ich habe meinen Fehler gefunden.

Ich muss im Server schreiben:

Delphi-Quellcode:

procedure TForm1.TCPServerExecute(AThread: TIdPeerThread);
var text: string;
begin
  with AThread.Connection do
    begin
      text := readln;
      Memo1.Lines.Add(text);
      WriteLn(text);
      disconnect;
    end;
end;

Weil man kann nur einmal den Wert mit ReadLn auslesen. Also muss man ihn halt vorher in eine Variable schreiben.
Man wird halt nur schlauer.