Aunque veo más o menos lo que quieres no comprendo la mecánica que quieres seguir, te pongo un ejemplo espero que lo puedas adaptar a tu caso, en este ejemplo he colocado 3 Casillas de verificación y le he puesto en su valor Tag a la 1, 0 a la segunda 10 y a la tercera 20.
Según las que marque me suma 0 10 ó 30.
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
s:Integer;
begin
s:=0;
for i:=0 to form1.ComponentCount -1 do
begin
If (Components[i] Is TCheckBox) Then
If (Components[i] As TCheckBox).Checked = True Then
s:=s+(Components[i] As TCheckBox).Tag;
end;
ShowMessage(intToStr(s));
end;
Un Saludo.