捕获异常消息(5分)

adoconnection1.ConnectionString :='FILE NAME='+extractfilepath(application.ExeName )+'ado.udl';
adoconnection1.Open();
怎样捕获这句话连接失败的消息？

try
adoconnection1.ConnectionString :='FILE NAME='+extractfilepath(application.ExeName )+'ado.udl';
adoconnection1.Open();
except
on E;exception do
begin
showmessage(E.message);
end;
end;

老兄，你哪个可以显示，
但是，怎样能避免这两个button 的循环调用那？

procedure TForm1.Button1Click(Sender: TObject);
begin
if EditConnectionString(adoconnection1) then begin
adoconnection1.Open();
adoconnection1.GetTableNames(combobox1.Items);
edit1.Text :='数据库表的个数为：'+inttostr(combobox1.Items.Count );
end else begin
Button2Click(nil) ;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
try
adoconnection1.ConnectionString :='FILE NAME='+extractfilepath(application.ExeName )+'ado.udl';
adoconnection1.Open();
adoconnection1.GetTableNames(combobox1.Items );
edit1.Text :='数据库表的个数为：'+inttostr(combobox1.Items.Count );
self.Button2.Enabled:=false ;
//finally
except
begin
button1click(nil);
end;
end;
end;

Button1中循环执行的地方判断
if Sender = Button2 then
...
Button2中循环执行的地方判断
if Sender = Button1 then

SanDao 你好！
你给了我一个新的思路，但是这个问题是在两个异常之间跳来跳去，
有办法解决吗？