Думаю тема обсуждалась не раз, но всеже...
Проблема такая:
имеется сервер.К нему приконнекчено несколько клиентов.Раз в 20 сек клиенты шлют на сервер Информацию.Нужно определить если клиент в течении минуты не прислал .... значит он повис.Его надо отключить.Клиенты работают через GPRS.Видно что клиент уже 20 минут не посылает инфу а сервер его видит как законнекченного.Как поступить в этой ситуации?

еще вопрос: делаю отключение коиента таким образом:

procedure ServerFrmMain.Button2Click(Sender: TObject);
var i:integer;
begin
 with Server.Threads.LockList do try
   i:=Count;
   while  i > 0  do begin
     Dec(i);
     TIdPeerThread(Items[i]).Connection.Write('You are Disconnected');
     TIdPeerThread(Items[i]).Terminate;
     (*TIdPeerThread(Items[i]).Connection.Disconnect;*)
   end;
 finally
   Server.Threads.UnlockList;
 end;
end;
===================================================
procedure ServerFrmMain.Button1Click(Sender: TObject);
var i:integer;
begin
 with Server.Threads.LockList do try
   i:=Count;
   memo1.Lines.Clear;
   memo1.Lines.Insert(0,IntToStr(i));
 finally
   Server.Threads.UnlockList;
 end;
end;

После  TIdPeerThread(Items[i]).Terminate; 
вижу тоже самое число приконнекченных клиентов до того момента пока клиент не пошлет что-нить серверу.
После этого вижу этого клиента отконнекченным и кол-во приконнекченных клиентов уменьшается на единицу.Потом слдующи клиент посылает - и опять уменьшается список приконнекченных.
Подскажите где грабли?

а если Connection.Close ?

Спасибо, разобрался!
Грабли были в Lock-UnlockList в нутри цикла.
А отключать надо ........Connection.Disconnect(*TIdPeerThread(Items[i]).Connection.Disconnect;*)
все тогда нормально работает!
)