will randomzahlen aufaddieren

[Fedebolix]

und so?

Delphi-Quellcode:

var zufallszahl, summe: integer;
begin
    summe:=0;
   randomize;
              zufallszahl:=random(6)+1;
              edit1.Text:=inttostr(zufallszahl);
   if zufallszahl = 1 then Summe:=0
  else Summe:=Inc(Summe, zufallszahl)
  edit2.Text:=inttostr(summe);