Problem mit if then schleife

[PetBurki]

einmal pro onbuttonclick

Jetzt meldet er mir den Fehler, dass er ein simikolon will, und wenn ich ichs hinmache, sagt er: Decleration expected but else found. So sieht es grad aus:

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
label7.visible:=true;
button1.Enabled:=false;
button2.Enabled:=false
end
else
begin
label7.Visible:=false;
button1.Enabled:=false;
button2.Enabled:=true;
end;