如何在indy 10中从服务器向客户端发送文本

Question

我想要做的是使用indy tcp（客户端/服务器）在服务器和客户端之间进行简单的文本交换应用程序（有些人可能会说这不是这类程序的最佳选择..好吧我是只是试图了解它是如何用它来做其他项目的）

好的，这段代码并不是完美的，但它可以将文本从服务器发送到客户端

服务器

procedure Tchat.ServerExecute(AContext: TIdContext);
 begin
  acontext.Connection.IOHandler.WriteLn('test');
 end;

客户

procedure Tchat.Timer1Timer(Sender: TObject);
 begin
 if client.Connected and client.IOHandler.Connected then
 memo1.Text:=client.IOHandler.ReadLn;
 end;

我想要做的是如何使用从服务器到客户端的按钮发送文本