用INDY写得服务器程序，D7自带的！当服务器端不向客户端发数据停止服务，再启动服务，不会出错；但是当服务器向服务器发数据后停止服务，再启动服务后就无法再检测到客户端了，我用的是GPRS模块作客户端！
服务器发送数据：
    for k :=0 to count - 1 do 
            begin 
              TidPeerThread(IdTcpServer.Threads.LockList.Items[k]).Connection.WriteBuffer(sbuf,j+1); 
            end; 
            finally 
              idtcpserver.Threads.unLockList; 
            end;
停止服务：
TIdPeerThread(Items[I]).Connection.Disconnect; 
           TIdPeerThread(Items[I]).Terminate