will randomzahlen aufaddieren

[Fedebolix]

so, nocheinmal mein problem, nachdem ich es schon an der falschen stelle geschildert habe...

also, ich will randomzahlen aufadieren. jetzt habe ich es soweit geshaft:

zufallszahl:=random(5)+1;
edit1.Text:=inttostr(zufallszahl);
if zufallszahl=1 then summe:=summe-summe
else summe:=summe+zufallszahl;

aber es funktioniert nicht...