Ü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