indy10 里面的服务器端如何发消息给客户端?(100)

除了客户端刚连接上的时候可以发送一次,然后再用button发送就出错了, 用的INDY10.0.52版的 Idtcpserver和Idtcpclient function acsend(st:string):Boolean;var Acontext:TIdContext;begin AContext.Connection.Socket.WriteLn(st); end;procedure TForm1.TcpsConnect(AContext: TIdContext);beginacsend(mmo1.Text);end;procedure TForm1.btn1Click(Sender: TObject);beginacsend(mmo1.Text);//这里点了就出错了,那个Acc..什么的错误.end;目的就是服务器端点按钮之后发送mmo1.text的内容

function acsend(st:string):Boolean;这个函数有问题吧，Acontext都没有赋值，就使用了。

TForm1.TcpsConnect(AContext: TIdContext); 在这个里面可以用没问题,是不是要改为全局的?