суммировать checkBoxы

[crash_boy]

Доброго дня суток! Подскажите коллеги как мне быть...? на форме есть 4 чекБокса и у каждого свой коэффициент. Мне надо сделать так чтоб когда пользователь выбирал Эти коэффициенты суммировались.

т.е. вот так

чекбокс1:= 0.08
чекбокс2:= 1.0
чекбокс3:= 0.07
чекбокс4:= 0.09

ki:= чекбокс1+ чекбокс2+чекбокс3+чекбокс4;

но тут не все чекбоксы могут быть выбраны

[Stilet]

А как эти коэффициенты привязаны к чекам?
Вообще банальщина:

ki:=0;
if CheckBox1.Checked then ki:=ki+0.08;
if CheckBox2.Checked then ki:=ki+1;
if CheckBox3.Checked then ki:=ki+0.07;
if CheckBox4.Checked then ki:=ki+0.09;

[java_91]

var
  sum : real;
begin
  sum :=0;
  if CheckBox1.Checked then sum:=sum+StrToFloat(CheckBox1.Caption);
  if CheckBox2.Checked then sum:=sum+StrToFloat(CheckBox2.Caption);
  if CheckBox3.Checked then sum:=sum+StrToFloat(CheckBox3.Caption);
  if CheckBox4.Checked then sum:=sum+StrToFloat(CheckBox4.Caption);
  Edit1.Text:= FloatToStr(sum);
end;

[Человек_Борща]

я сделал это так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure CheckBoxClickProc(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    c1: SmallInt;
    c2: SmallInt;
    c3: SmallInt;
    c4: SmallInt;
    cR: SmallInt;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  c1 := 1;
  c2 := 2;
  c3 := 3;
  c4 := 4;
  cR := 0;
  CheckBox1.Hint := IntToStr(c1);
  CheckBox2.Hint := IntToStr(c2);
  CheckBox3.Hint := IntToStr(c3);
  CheckBox4.Hint := IntToStr(c4);
end;

procedure TForm1.CheckBoxClickProc(Sender: TObject);
begin
  if (Sender as TCheckBox).Checked then
  begin
    cR := cR + StrToInt((Sender as TCheckBox).Hint);
  end else
  begin
    cR := cR - StrToInt((Sender as TCheckBox).Hint);
  end;
  Label1.Caption := IntToStr(cR);
end;

end.

при условии что подсказки более не нужны.

p.S. я не знаю где там хранить эти цифры.

Но ещё можно не пользоваться If...then'om а присвоить каждому чекбоксу номер в свойстве Tag далее пробежаться по Tag при помощи case (Sender as TCheckBox).Tag of