Oder wohl sonst die einfachste Lösung: Du benutzt eine Variable in deiner Procedure...
Delphi-Quellcode:
var
sum: Currency;
begin
if checkbox1.Checked then
sum:= sum + ColaPreis;
if checkbox2.Checked then
sum:= sum + WasauchimmerPreis;
{...}
end;
Aber ansonsten ist die Lösung von Detlef noch optimaler.