ошибка в коде с функцией else

[beygul]

Привет все! Помогите пожалуйста найти ошибку - всё перепробовал - ничё не помагает(((

procedure TForm1.Button2Click(Sender: TObject);
var
Pass: String;
begin
if ComboBox1.Text <> '' then
pass := DecodeSmartStr(Ini.ReadString(ComboBox1.text,'pass','åñëè ìû íå ñ÷èòàëè, ïèøè ñþäà äåôîëò'));
if pass=edit4.text then begin
Form1.hide;
Form3.ShowModal;
Form1.Show
end
else begin
ShowMessage('Ëîãèí èëè ïàðîëü ââåä¸í íå âåðíî!');
Edit4.Text:='';
end;
end
else
showMessage('Âûáåðèòå èìÿ ïîëüçîâàòåëÿ!');

end;

Выделяет подчёркнутый else

[bulldog5293]

Либо так

Edit4.Text:='';
end
else

Либо так

Edit4.Text:='';
else