Delphi 连接mysql 按钮的实现

用Delphi7.0 连接MYSQL 5.0 用的是MYSQL ODBC 5.1 Driver。做连接测试按钮。实现如下功能：
连接成功，显示
连接失败，显示

请问大家这个测试连接的按钮的实现，越详细越好，谢谢，本人菜鸟，请大家多多帮助，无论对错，都在此谢过。