List: TList;


List := IdTCPServer1.Contexts.LockList;
try
Memo1.Lines.Add('LockList Count: ' + IntToStr(List.Count));
finally
IdTCPServer1.Contexts.UnlockList;
end;