[angvelem]

Перемудрил:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
begin
  for I := 0 to ComponentCount - 1 do
  begin
    if (Components[i] is TCheckBox) then
      if (Components[i] as TCheckBox).Checked then
      begin
        (Components[i] as TCheckBox).Tag := (Components[i] as TCheckBox).Tag + 1;
        (Components[i] as TCheckBox).Checked := False; //заодно и снимем пометку, раз новый лист делаем
      end;
  end;
end;