Bei Random werden immer die selben Zahlen ausgespuckt

[Klaus01]

Ist Summe1 vielleicht nicht initialisiert?

Delphi-Quellcode:

procedure TForm1.b_wuerfelnClick(Sender: TObject);
begin
  zahl1:=random(6)+1;
  l_gewuerfelte_zahl1.Caption:=IntToStr(zahl1);
    If zahl1=1 Then 
      begin
        summe1:=0;
        l_summe1.Caption:=IntToStr(summe1);
        b_wuerfeln.enabled := false;
      end 
    else 
      begin
        summe1:=summe1+zahl1;
        l_summe1.Caption:=IntToStr(summe1);
    end;
end;

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
  summe1 := 0;
end;

Grüße
Klaus