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.
