[Indy] TCP Server sendet nicht zum Client

[Delphi Nub]

Hiho

habe folgendes Problem: Ich kann via Wirteln von Clienten an den Server einen String schicken aber mit dem selben Befehl nicht von Server zum Clienten. Warum nicht?

Delphi-Quellcode:

procedure TForm1.IdTCPServer2Execute(AThread: TIdPeerThread);
var s:string;
begin
with Athread.Connection do
begin
s:=readln; //das klappt
s:=uppercase(s);
if s='UPDATE' then
Writeln(ComponentToString(Listview2)); //das aber nicht mehr
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
with IdTCPClient2 do
begin
  writeln('Update'); //das klappt auch
  Try
    Listview2.Create(StringToComponent(readln)); // Dies wieder nicht
   finally
    Disconnect
    end;
end;
end;

Wo liegt der Fehler?