delphi提示'END' expected but 'ELSE' found

Question

begin
    try
    with data do
    begin
    ADOLogin.sql.clear;
    ADOLogin.sql.add('select*from Users where Username="'+edit1.text+'"');
    ADOLogin.open;
    end
    except
     begin
     messageDlg('connect ti database error!',mterror,[mbOK],0);
     close;
     end
     end;
     if data.ADOLogin['password']=edit2.text then
     begin
     flag:=true;
     end
     else begin
     flag:=false;
     messagedlg('password error!',mterror,[mbOK],0);     end     else begin
     flag:=false;
     messafedlg('username error!',mterror,[mbOK],0);     end;
     close;
end;
 提示'END' expected but 'ELSE' found错误  请路过的高手帮忙看下 该如何修改   感激不尽啊!

Answer 1

if data.ADOLogin['username']=edit1.text then
  flag:=true;
else
begin
  flag:=false;
  messagedlg('username error!',mterror,[mbOK],0);
end
else
begin
  flag:=false;
  messafedlg('username error!',mterror,[mbOK],0);
end;

Answer 2

不行啊   else前面不能有； 

Answer 3

你一个if后面可以有两个else？ 明显语法问题啊

Answer 4

把我的代码加到你判断password后面，一个if后面不能有两个else
除非
if  thenelseelse if then