will randomzahlen aufaddieren

[gekmihesg]

ich hab mir deinen ersten thread angeschaut und mir daraufhin ein spiel daraus gebastelt die stelle die du meinst sieht bei mir so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl,i: integer;
begin
zahl:=strtoint(label1.Caption);
i:=random(5)+1;
if i = 1 then
    zahl:=0
else
  zahl:=zahl+i;
label1.Caption:=inttostr(zahl);
end;