Pizzaservice

[cobralord]

Hallo,
ich möchte einen Pizzaservicerechner programmieren, habe jetzt aber folgendes Problem:

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
if checkbox1=cbchecked then Preis + Salami
else Preis + 0;
label1.Caption:='Der momentane Preis ist' + Preis;
if checkbox2=cbchecked then  Preis + Käse;
label1.caption:='Der momentane Preis ist' + Preis;


end;

Ich kriege eine Fehlermeldung: 'Operator ist auf diesen Operandentyp nicht anwendbar.'
Dabei ist ist die Zeile mit dem ersten 'if' rot hervorgehoben. Kann mir bitte jemand sagen was falsch ist?
Vielen Dank schon mal im Vorraus!!!