ungewollte aktion beim zufall!

[Gregor]

also folgendes proplehm. bei diesem code (weiter unten) kann ich nichts finden und es gibt auch keine fehlermeldungen aber trotzdem rechnet er mal plus mal minus?! dabei will ich ja nur minus

Delphi-Quellcode:

procedure TForm1.button_laser_2Click(Sender: TObject);
begin

//text im memofeld spieler 2
memo_infotext.Text:='Spieler 2 hat an seinem Raumschiff einen Laser! Dieser trift den Gegner mit voller Wucht!';
//waffenprozente
gauge_waffen_2.Progress:=gauge_waffen_2.Progress-2;
//schaden
Randomize;
Schaden2:=random(9);
schildschaden2:= Schaden2-1;
Lebenschaden2:= schaden2-3;
gauge_leben_1.Progress:=gauge_leben_1.Progress - Lebenschaden2;
gauge_schild_1.Progress:=gauge_schild_1.Progress - Schildschaden2;
end;