delphi2009 datasnap多层结构,如何知道服务端的class是被哪个客户端调用的?

Question

type
  TServerDSSM = class(TDSServerModule)
    DataSetProvider1: TDataSetProvider;
    SQLDataSet1: TSQLDataSet;
    SQLConnection1: TSQLConnection;
  private
    { Private declarations }
  public
    { Public declarations }
    function GetClient(): OleVariant;       //如何知道这个方法是被哪个客户端调用呢?
  end;procedure TServerMainForm.DSServer1Connect(
  DSConnectEventObject: TDSConnectEventObject);
begin
     DSConnectEventObject.ChannelInfo.Id              //如何在上面的方法中取得类似这里的TCP连接的id
end;