DelphiCS结构的小游戏源码

一个CS结构的Delphi 小游戏源码，带网络对战，游戏规则：一次可以拿一列上任意数量的子，最后一颗是谁拿的，谁就输了。 　　Tcommblock = record // 双方共同使用的数据块（服务器+客户端） 　　iCommand:CommandType;//命令类型 　　sum3,sum5,sum7 :string[1];//消息，每次发送的消息的字节数 　　CIp,msg:string[100];//发送者昵称，信息内容