try--except异常处理问题

procedure TForm1.Button1click(Sender:TObject)
var
  i:integer;
begin
   try
    i:=strtoint(Edit1.text);
   except
      showmessage('AA');
   end;
end;
出现转换错误，为什么不执行showmessage('AA');而直接给出错误警告！
哪为大哥帮个忙解决一下！
except加上on ...do...也行，就是不执行except后面的语句为什么？