Checkboxen und Radiobuttons verfügen beide über die Checked-Eigenschaft (angehakt oder nicht). Eine schnelle Lösung könnte so etwas sein:
Delphi-Quellcode:
function TMainForm.Gesamtpreis: double;
begin
Result := 0;
if CheckboxCola.Checked then
Result := Result + Preis_Cola;
if CheckBoxCheeseburger.Checked then
Result := Result + Preis_Cheeseburger;
//usw.
end;
Die einzelnen Preise hätte ich dann als Konstanten hinterlegt und würde diese dann verwenden (z.B. Preis_Cola = 1,99).
[edit] Rechtschreibung [/edit]