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;

[PierreB]

Was heißt denn "nicht funktioniert" ? Fehlermeldung, etc ?

[McDaTob]

Hab Server und Client als Test in einem Programm laufen lassen.
Das Memo zeigt nichts an, das Programm reagiert nicht mehr.
Wenn ich die Antwort vom Server weglasse, funktioniert es wunderbar.
Das ist genau das,was ich nicht verstehe.

[Zacherl]

Der Execute Prozess geht in einem Thread von sich. Versuch mal den Zugriff auf das Memo zu synchronisieren.

Florian