Problem mit if then schleife

[uwewo]

Nächstesmal mit Delphi TAGS

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var schuss, leben :integer; 
begin 
randomize; 
edit4.Text:=''; 
schuss:=random(10); 
leben:=StrToInt(edit2.Text)-schuss; 
edit4.Text:=IntToStr(schuss); 
edit2.Text:=IntToStr(leben); 

if StrToInt(edit2.Text)<=0 then 
begin
label7.visible:=true; 
button1.Enabled:=false; 
button2.Enabled:=false 
end
else
begin
label7.Visible:=false; 
button1.Enabled:=false; 
button2.Enabled:=true; 
end;
end;