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;