Delphi zählt flasch

[citybreaker]

Hallo,

ist das normal das Delphi falsch zählt?
Hab folgendes gemacht:

Delphi-Quellcode:

...

var: 
 Form1: TForm1;
 Punkte: Integer = 1;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  if CheckBox1.Checked = true then
    Punkte := Punkte +1
  else 
    Punkte := Punkte -1;
  Label1.Caption := IntToStr(Punkte);
end;

Wenn er Eins abzieht kommt da -1 raus. Woran liegt das?