Indy TCPServer -> Client

[Neutral General]

Naja sagen wir ich habs zur hälfte raus
Ich kann zwar jetzt dem Server Nachrichten senden aber der Server nicht dem Clienten.
Außer halt direkt bei OnExecute. Aber das bringt mir bei einem Chat nichts. Da sollen ja Nachrichten geschickt werden wenn der Benutzer es will.

Der Server kann nun so Nachrichten empfangen :

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
  with AThread.Connection do
  begin
   WriteLn('Hello from Basic Indy Server server.');
   Form1.Caption := ReadLn;
  end;
end;

Der Client kann einfach so

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  IDTCPClient1.WriteLn('HALLO SERVER');
end;

dem Server eine Nachricht schicken, die auch ankommt.
Aber gibt es keine Möglichkeit vom Server dem Clienten eine Nachricht zu schicken auf ButtonClick ?