Über IDTCPClient und IDTCPServer Text verschicken geht nicht

[Delphi Star]

Der Server:

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
begin
with Acontext.Connection do
begin
WriteLn('Test');
Disconnect;
end;
end;

Der Client:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
with idtcpclient1 do
begin
try
Connect;
except
showmessage('Es konnte keine Verbindung aufgebaut werden.');
exit;
end;
try
listbox1.Items.Add(iohandler.ReadLn);
finally
Disconnect;
end;
end;
end;

Warum funktioniert das nicht :?:

[Delphi Star]

*push*

[Beckman]

readln wartet auf den terminator EOF und du hast nur text ohne terminator geschrieben.
schick mal writeln() zum clienten.
oder mach
with athread.connection do begin writeinteger() write() end; und auf der anderen seite: read(readinteger)