Checkbox speichern

[franke]

Hallo,

auch ich bin Neu und möchte gern meine Checkboxen mit Werten belegen und diese in einer Tabelle speichern und später noch den Mittelwert berechnen.
Wenn die Checkbox angeklickt wurde, soll ein Wert z.B. 1.7 gespeichert werden.Tabelle wird per Laufzeit erstellt
Ich bin mir nicht sicher - ob dies hier die beste Art ist bzw. wie ich den Wert speichern kann, um diesen später mit Mean zu berechnen.
Vielen Dank im Vorraus

Delphi-Quellcode:

var
   asport  :array[1..3] of single;

procedure TFormaktiv.Button2Click(Sender: TObject);
var i :string;
begin
   if bowling.Checked then asport[1]:=1.7 else asport[1]:=0.0;
   if billard.Checked then asport[2]:=2.7 else asport[2]:=0.0;
   if surfer.Checked then asport[3]:=3.7 else asport[3]:=0.0;
  begin
  ???AktivModule.sportTable.bowling.post:=asport[1];
     AktivModule.MainTable.billard:=asport[2];
     AktivModule.MainTable.surfer:=asport[3];
end;

[edit=Luckie]Code-Tags gefixet[/edit]