请问在DELPHI中运行时创建的TClientSocket对象如何绑定事件？

Question

请问在DELPHI中运行时创建的TClientSocket对象如何绑定事件？
例如：
    cli:=TClientSocket.Create(self);
    cli.OnRead===>该怎么设置才能把我的ClientSocketRead绑定到OnRead上呢？

Answer 1

procedure MyControl(  ) 
begin
  ...
end;cli.Onread := MyControl

Answer 2

是这样么？
procedure ClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
   g:string;
begin
    g:=Socket.ReceiveText;
    ShowMessage(g);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
    cli:=TClientSocket.Create(self);
    cli.OnRead:=ClientSocketRead;
end;编译会出现错误: Incompatible types: method pointer and regular procedure