Nur das größte Ergebnis wird angegeben (Rechner mit Checkbox und Radiobox)

[Bummi]

Delphi-Quellcode:

var
 i:Integer;
 sum:Double;
begin
   sum := 0;
   if RadioButton1.checked then
      begin
         for I := 1 to 4 do
           if TCheckBox(FindComponent('Checkbox' + IntToStr(i))).Checked then
             Sum := Sum +  StrToFloat(TEdit(FindComponent('Edit' + IntToStr(i))).Text);
         Label7.Caption := FloatToStr(sum);
      end;
end;

wobei der Zugriff über eigene Listen oder Array mit den Komponenten flotter wäre.