Problem mit if then schleife

[PetBurki]

Ich hab folgendes geschrieben un da meldet er immer den fehler end expected but else found , könnt ihr mir halfen:

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

vielen dank im vorraus!

[edit=SirThornberry]Delphi-Tags gesetzt. Nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]