ServerSocket 如何用呢

ServerSocket 怎么用呢;
我在服务器上监听某个端口;会有几十上百个客户端连过来
我要记录下每个连接,然后用
sendbuf  receivebuf  去分别通讯;

不知道要记录下这个连接的具体哪个东西;

我已能在 onaccept 事件中,接收到连接;

------解决方案--------------------
定义一个存放用户信息的结构体,当有客户端连接时,将它加到tlist中
type
  PClientInfo = ^TClientInfo;//用户信息
  TClientInfo = packed record
    name: array [0..20] of char;
    ip: u_long;  //ip地址
    port: Integer;//端口号
    ticktime: Integer;
  end;