IdTCPServer funktioniert nicht, Indy10

[McDaTob]

Hi,
ich probiere jetzt schon den ganzen Tag mit dem blöden Indy10 rum
und komme einfach nicht damit klar. Hat jemand ne Ahnung, warum der
folgende Code nicht funktioniert? (Delphi 2005)
Hat in der Art bei Indy9 immer funktioniert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ans : string;
begin
  Client.IOHandler.WriteLn('cmd');
  ans := Client.IOHandler.ReadLn;
  Memo1.Lines.Add('Client: '+ans);
end;

procedure TForm1.ServerExecute(AContext: TIdContext);
var
  cmd : string;
begin
  cmd := AContext.Connection.IOHandler.ReadLn;
  Memo1.Lines.Add('Server: '+cmd);
  AContext.Connection.IOHandler.WriteLn('abcdefg');
end;