1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm2.ComboBox1Change(Sender: TObject);
begin

if combobox1.Text = 'Eintrag1' then
  a := 10;
Edit1.Text := FloatToStr(a);
end;

procedure TForm2.CheckBox1Click(Sender: TObject);
begin
    if checkbox1.Checked = true then
      a := a + 5;
Edit1.Text := FloatToStr(a);
end;					

1:
2:
3:
4:
5:
6:
7:

if combobox1.text = 'Eintrag1' then
  a = 10;   {a ist eine Variable}
    if checkbox1.checked := true then
       a = a + 5; {a sollte sich dann von 10 auf 15 ändern!}
    if checkbox2.checked := true then
       a = a + 7; {a sollte sich dann auf 22 (wenn auch Checkbox1 aktiv ist) oder 17 ändern}
  Edit1.Text := FloatToStr(a);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

if combobox1.text = 'Eintrag1' then
  a = 10;   {a ist eine Variable}
    if checkbox1.checked := true then
       a = a + 5; {a sollte sich dann von 10 auf 15 ändern!}
    if checkbox1.checked := false then
       a = 10;
    if checkbox2.checked := true then
       a = a + 7; {a sollte sich dann auf 22 (wenn auch Checkbox1 aktiv ist) oder 17 ändern}
    if checkbox2.checked := false then
       a = 10;
  Edit1.Text := FloatToStr(a);					

1:

if checkbox1.checked = true then a = a + 5  else a = 10;					

1:
2:

for n:=1 to MaxNrCheckBoxen do
if TCheckBox(FindComponent('CheckBox'+IntToStr(n)+'.checked')) =true then...else...					

1:
2:
3:
4:

begin
  if checkbox1.Checked = true then a:=a+3 else a:=10; //"10" wäre Startwert wie oben 
  Edit1.Text := FloatToStr(a);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

...
...


Var a, b, c, d : double;

procedure TForm1.Kontrollabfrage;
begin
If Combobox1.Text = 'Eintrag1' then a := 10;
If Combobox1.Text = 'Eintrag2' then a := 20;
If Combobox1.Text = 'Eintrag3' then a := 30;

If Checkbox1.Checked = true then b := 3 else b := 0;
If Checkbox2.Checked = true then c := 7 else c := 0;
If Checkbox3.Checked = true then d := 9 else d := 0;

Edit1.Text := FloatToStr(a+b+c+d);

end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Kontrollabfrage;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Kontrollabfrage;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
Kontrollabfrage;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
Kontrollabfrage;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure ComboBox1Change(Sender: TObject);
procedure Form1.CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure Form1.CheckBox3Click(Sender: TObject);

procedure Kontrollabfrage;          // die muss du selbst schreiben //:

private

public

var Form1 : TForm1;

implentation

..
..

Var a, b, c, d : double;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.FormActivate(Sender: TObject);
begin
  combobox1.Items.Add(ComText1);
  combobox1.Items.Add(ComText2);
  combobox1.Items.Add(ComText3);
end; 
//EDIT: Oder auch so für Tippfaule...
begin
  with combobox1.items do
  begin
    Add(ComText1);
    Add(ComText2);
    Add(ComText3);
  end;
end;					

1:
2:
3:

if Checkbox1.Checked=true then
//das entspricht im fall, dass der Haken sitzt:
if true=true then					

1:

if Checkbox1.Checked then					

1:
2:
3:
4:
5:

var x:boolean;
begin
x := 5 = 5; //x ist dann true
x := 1 = 2; //x ist dann false
x := Edit1.Text = 'Hallo!'; //wenn im Edit "Hallo!" steht, ist x true.					

1:
2:
3:
4:

if x=5 then
   bool:=true
else
   bool:=false;					

1:
2:
3:
4:

case x=5 of
   true: bool:=true;
   false: bool:=false;
end;					

1:

bool := x=5					

1:

//if x=5 then bool:=true ...