try-except错误处理有关问题

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后面的语句为什么？

[解决办法]
到工程目录里找到你编译的Project1.exe, 双击执行一下试试, 还是不行吗?

发这么多同样的贴干嘛
[解决办法]
procedure TForm1.Button1click(Sender:TObject)
var
i:integer;
begin
try
i:=strtoint(Edit1.text);
ShowMessage(IntToStr(i)); //加上这句就行了， 不加这句，前面那句给 Delphi优化掉了。
except
showmessage( 'AA ');
end;
end;