这一段代码编译时总出现“ 'END'expected but 'else ' found ,请大侠帮忙！全部分送上！(80分)

procedure TForm1.LabeledEdit1Exit(Sender: TObject);
var
text1:string;
SearchOptions:TLocateOptions;
begin
Table1.open;
text1:=labelededit1.Text;
//判断表中的username字段是否有与LabeledEdit1中输入的字符相同
if table1.Locate('username',text1,SearchOptions)=False then
ShowMessage('没有这个用户，请重新输入');
LabeledEdit1.SetFocus else //这地方总是出错
labelededit2.SetFocus;
table1.close;

end;

procedure TForm1.LabeledEdit1Exit(Sender: TObject);
var
text1:string;
SearchOptions:TLocateOptions;
begin
Table1.open;
text1:=labelededit1.Text;
//判断表中的username字段是否有与LabeledEdit1中输入的字符相同
if table1.Locate('username',text1,SearchOptions)=False then
begin
ShowMessage('没有这个用户，请重新输入');
LabeledEdit1.SetFocus
end
else //这地方总是出错
begin
labelededit2.SetFocus;
table1.close;
end;

end;

0_0

呀，来晚了

接受答案了.