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

[Bummi]

initialisiert Du Summe1 irgendwo?
Die Variable darf dann auch im Public Bereich stehen und im Create mit 0 initialisiert werden.

EDIT:

upps zu spät...

[h4rDc0r34LFi]

Danke an alle ;)
Habe das Spiel fertiggestellt.
Alle die es gerne mal ausprobieren möchten --> http://rapidshare.com/files/43333868...B__se_Eins.zip