delphi 这段IF代码能简化吗

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text = 'admin1' then
   begin                 //难道每个IF语句都得加   begin    ------  end   吗
  showmessage ('admin1');
   end
  else
  if edit1.Text ='admin2' then
     begin
    showmessage ('admin2');
    end
    else
    if edit1.Text ='admin3' then
      begin
      showmessage ('admin3');
       end
      else
    showmessage ('error')

end;
end.

追问：
哦，谢谢，请教个问题啊！
哎！！！我看了DELPHI快10分之3了，都一头雾水啊！！请问下该怎么办

答案：
是的。如果你不加的话，他就会直接执行下面的代码，我用delphi这么久了，还是很清楚的。  每一句的嵌套，都必须加，这样delphi可以很好的运行编译为机器语言。。
 最好加，有的人是不加的。这是语法的错误

上一个：delphi做的程序怎样实现密码找回功能。
下一个：delphi c++ java 学哪个？