will randomzahlen aufaddieren

[Fedebolix]

so siehts bei mri jetzt aus... aber klappen tuts noch nicht

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