Delphi 服务端怎么控制只能一个客户端运行 相当于浮动的license

Delphi 服务端如何控制只能一个客户端运行 相当于浮动的license
现在的设计是无数个客户端同时连接服务端；要改成同时连接服务端只能一个客户端。
采用的是scoket连接；服务端IP地址连接；
谢谢大侠
------解决思路----------------------
或者设置TServerSocket的ThreadCacheSize等于1，试试
------解决思路----------------------
完全可以。
1、设置全局变量FClientCount（记录连接数），初始值=0；
2、在 uRemoteData单元的：

procedure TTServer.RemoteDataModuleCreate(Sender: TObject);

begin

  if FClientCount=0 then

  begin 

     //  连接数据代码

    FClientCount:= FClientCount+1;   // 记录连接数

  end

  else begin

     exit;

  end;

end;

   

只要连接数=0，创建RemoteDataModule，连接数>0就拒绝创建（连接）。仅供参考。