Hi, ich habe es nur überflogen:
Delphi-Quellcode:
edit2.Text:=IntToStr(leben);
if StrToInt(edit2.Text)<=0 then ...
Delphi-Quellcode:
edit1.Text:=IntToStr(leben);
if StrToInt(edit2.Text)<=0 then ...
Ich denke, du musst in der 2. if-Abfrage den Inhalt von Edit1 überprüfen (Also ein Copy&Paste-Fehler deinerseits, nehme ich an).
Achja, rufe
Randomize nur einmalig im
OnCreate auf, nicht bei jedem Buttonklick.