Comprobar conexión con Delphi

[dante148]

Buenas mis estimados!!
una vez mas quisiera preguntar algo sobre lenguaje de programación, veran, lo que quiero hacer es tener un boton en mi aplicación el cual tenga la funcionalidad de comprobar la conexión entre mi aplicacion y Mysql, he buscado por muchas partes sin logro alguno, intente de la siguiente manera.

Código Delphi [-]
 
ADOQuery1.ConnectionString:=(todo lo que tiene que llevar);
ADOQuery1.open;
if ADOQuery1.Active=true then showmessage('Conexión exitosa!!);

pero sin ninguna respuesta.
espero que aguien tenga la respuesta
de antemano muchas gracias