[marcoszorrilla]

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.