Tseesion=record
id:string; //随机数
last:Tdatetime; //上一次访问的时间
...其他信息
end;

每次访问时，先比较当前时间与它的last之差是不是超过指定时间，超过就认为是超时，无效了，删除该结构
另外也定时扫描该结构数组，比较当前时间与每个结构的last之差是不是超过指定时间，超过就认为是超时，无效了，删除该结构