Disconnect af ClientSocket fra ServerSocket

Jeg ønsker at disconnecte en socket, dens SocketHandel nr er i SpinEdit1. Men når jeg udfører nedenstående kode bliver alle clienter disconnected...??

Kode linien ServerSocket1.Socket.Disconnect(j); bliver kun gennemløbet 1 gang...?


procedure TForm1.Button1Click(Sender: TObject);
var
  j: Integer;
begin
  j:= 0;
  while j < ServerSocket1.Socket.ActiveConnections -1 do
  begin
  if (SpinEdit1.Value = ServerSocket1.Socket.Connections[j].SocketHandle) then
    ServerSocket1.Socket.Disconnect(j);
  inc(j);
  end;
end;