[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;

[GrabbeR]

Сообщение от angvelem

Ещё бы понять, что такое:

в моем первом посте приложение

по поводу радиобаттона - можно и его, если это каким-то образом облегчит задачу

Сообщение от angvelem

Т.е. первый раз он был выбран на "первом листе", и второй - когда "лист" перевернули?

Совершенно верно, листы разделяет кнопка "Следующий лист". Сейчас попробую, спасибо

[GrabbeR]

написал с массивами, получилось
парни, всем спасибо за помощь!

[angvelem]

Сообщение от GrabbeR

в моем первом посте приложение

В упор ничего про стороны не вижу не в первом, ни в последующих постах.

Сообщение от angvelem
Т.е. первый раз он был выбран на "первом листе", и второй - когда "лист" перевернули?

Не нужно мне присваиваивать чужие сообщения.

[GrabbeR]

в архиве я исходник же скинул) на форме стороны и колонки есть)