Ich würde das ganze so schreiben :
Delphi-Quellcode:
const Salami=1 ; Käse=0.8 ; Schinken=1.2 ; Ananas=1.3 ; Sardellen=1.5 ;
Klein=1.5 ; Groß=2 ; Riesen=2.7 ; Family=3.5;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var Preis:double;
begin
Preis := 0;
if checkbox1.checked then Preis := Preis + Salami
else Preis := Preis + 0;
label1.Caption:='Der momentane Preis ist' + Preis;
if checkbox2.checked then Preis := Preis + Käse;
label1.caption:='Der momentane Preis ist' + Preis;
end;