Message vom Server zum Client schicken (Indy)

[VirusXP]

Also ich Versuch von meinem Serverprogramm (realisiert mit einem IdTCPServer) ne Message an nen Client zu schreiben. Jetz aber des knifflige, ich befind mich net in der OnExecute Methode des Server, von wos ja zum Client ein leichtes is.


Ich hab jetz folgende Prozedur geschrieben:

Delphi-Quellcode:

Procedure SendMes(index: Int64; Mes: string);
var LThreads: TList;
begin
  LThreads := Form1.IdTCPServer1.Contexts.LockList;
  try
   with TIdContext(LThreads[index]) do
   begin
    WriteLn(Mes);
   end;
  finally
    Form1.IdTCPServer1.Contexts.UnlockList;
  end;
end;

Nu meine Frage: Wie fang ich des auf anderer Seite mit dem IdTCPClient auf, ich hab ja keine OnExecute Methode wie der Server?

Danke für jegliche Antwort, bis denn dann