IdTCPClient/Server keine antwort

[woppa]

Hab ein einfaches Prog zum kennenlernen von indy erstellt:

Server:

Code:

procedure TForm2.FormCreate(Sender: TObject);
begin
  idTCPServer1.Active := True;
end;

procedure TForm2.IdTCPServer1Execute(AContext: TIdContext);
begin
  Acontext.Connection.iohandler.writeLn('Testnachricht');
end;

Client:

Code:

procedure TForm2.Button1Click(Sender: TObject);
begin
  with idTCPClient1 do begin
    Connect;
    try
      s := IOHandler.ReadLn;
    except
      Disconnect;
    end;
  end;
end;

Der Compiler meldet zwar keinen Fehler, jedoch funktioniert das ganze auch nicht!

Er erhält einfach keine Antwort?!

Woran kann das liegen?

mfg