Суммация значение чекбоксов

[inf-45]

Имеется форма. На форме - TabControl, содержащий несколько закладок, в каждой из которых - 20-30 чекбоксов.
Задача: каждый чекбокс имеет определенный "вес", определяемый в баллах. После отметки нужных чекбоксов по нажатию кнопки должен высчитываться суммарный балл и передаваться на другую форму. При повторном открытии формы с чекбоксами балл должен быть равен нулю.
Пока у меня реализовано это вот так:

PHP код:

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if TCheckBox(Sender).Checked then  sum3:=sum3+TCheckBox(Sender).Tag/100 else
sum3:=sum3-TCheckBox(Sender).Tag/100;
end; 


Поскольку значения есть дробные, то используется округление. Значение каждого чекбокса лежит в tag.
Но, видимо, это не лучший вариант, поскольку, порой, эта система глючит и у меня оказывается отрицательный результат. Посоветуйте, как лучше это реализовать?

[Marsel737]

К примеру Tab1 - одна из вкладок.

procedure Button1Click(Sender: TObject);
var
  I: integer;
begin
  for I := 0 to Tab1.ComponentsCount - 1 do
  begin
    if (Tab1.Component[I] as TCheckBox).Checked then
      Sum := Sum + (Tab1.Component[I] as TCheckBox).Tag/100;
  end;
end;

И я ещё забыл сделать проверку на то компонент явялется чекбоксом, сами допишите

if Component[I] is TChekBox then

[mutabor]

Значение каждого чекбокса лежит в tag.
Но, видимо, это не лучший вариант

Нормальный вариант, причина глюков не в этом.

[inf-45]

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

Нормальный вариант, причина глюков не в этом.

Так поясните же, в чём?

[mutabor]

Сообщение от inf-45

Так поясните же, в чём?

Если Вы с событиями не напутали и у всех чекбоксов один обработчик, то тогда наверное в этом
http://www.delphikingdom.com/asp/vie...?catalogid=374

p.s. Если хотите привязать к чекбоксам вещественные значения, в Тэг их не впихнешь (можно конечно туда 4-х байтный Single засунуть, читать память напрямую и интерепретировать байты как Single, но это лишняя сложность), можно создать массив of Real а в тэгах чекбоксов хранить индексы.