CheckBox в формулах Delphi

[Vyacheslav.]

Помогите доделать проект.
Условие такое:
После ввода данных в поля "Количество" и "Цена" пользователь должен указать, какие из товаров выбраны. Выбор товара будет влиять на итоговую стоимость. Формула для расчета итоговой стоимости имеет приблизительно такой вид:
Итого = Стоимость 1*Индикатор Выбора+Стоимость 2*Индикатор Выбора+Стоимость 3*Индикатор выбора.
Индикатор выбора - checkbox. Не понимаю.. Как это написать?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    RadioGroup1: TRadioGroup;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Label10: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label11: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var k,z,s,s1,s2,n,i:real;
begin
if checkbox1.Checked=true then
begin
k:=StrToFloat(Edit1.Text);
z:=StrToFloat(Edit4.Text);
n:=1.05;
if radiogroup1.ItemIndex=1 then
begin
n:=1.1;
end;
if radiogroup1.ItemIndex=2 then
begin
n:=1.15;
end;
s:=k*z*n;
Edit7.Text:=FloatToStr(s);
end;
if checkbox2.Checked=true then
begin
k:=StrToFloat(Edit2.Text);
z:=StrToFloat(Edit5.Text);
n:=1.05;
if radiogroup1.ItemIndex=1 then
begin
n:=1.1;
end;
if radiogroup1.ItemIndex=2 then
begin
n:=1.15;
end;
s1:=k*z*n;
Edit8.Text:=FloatToStr(s1);
end;
if checkbox3.Checked=true then
begin
k:=StrToFloat(Edit3.Text);
z:=StrToFloat(Edit6.Text);
n:=1.05;
if radiogroup1.ItemIndex=1 then
begin
n:=1.1;
end;
if radiogroup1.ItemIndex=2 then
begin
n:=1.15;
end;
s2:=k*z*n;
Edit9.Text:=FloatToStr(s2);
i:=s+s1+s2;
Edit10.Text:=FloatToStr(i);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

end.

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var k,z,s,n,i:real;
begin
i:=0;
if checkbox1.Checked=true then
begin
k:=StrToFloat(Edit1.Text);
z:=StrToFloat(Edit4.Text);
n:=1.05;
if radiogroup1.ItemIndex=1 then
begin
n:=1.1;
end;
if radiogroup1.ItemIndex=2 then
begin
n:=1.15;
end;
s:=k*z*n;
Edit7.Text:=FloatToStr(s);
i:=s;
end;
if checkbox2.Checked=true then
begin
k:=StrToFloat(Edit2.Text);
z:=StrToFloat(Edit5.Text);
n:=1.05;
if radiogroup1.ItemIndex=1 then
begin
n:=1.1;
end;
if radiogroup1.ItemIndex=2 then
begin
n:=1.15;
end;
s:=k*z*n;
Edit8.Text:=FloatToStr(s);
i:=i+s;
end;
if checkbox3.Checked=true then
begin
k:=StrToFloat(Edit3.Text);
z:=StrToFloat(Edit6.Text);
n:=1.05;
if radiogroup1.ItemIndex=1 then
begin
n:=1.1;
end;
if radiogroup1.ItemIndex=2 then
begin
n:=1.15;
end;
s:=k*z*n;
Edit9.Text:=FloatToStr(s);
i:=i+s;
end;
Edit10.Text:=FloatToStr(i);
end;

[Vyacheslav.]

Да, спасибо.
А не могли бы вы объяснить что вы сделали?

[newerow1989]

Сократил количество переменных.
Подкорректировал в 3-х местах

s:=k*z*n;
Edit8.Text:=FloatToStr(s);
i:=i+s;

Переменная i являлась итоговой суммой

Edit10.Text:=FloatToStr(i);