Verificar a conexão e, depois a parte de login e senha...

Estou usando o componente Delphi-7/Zeus conectando ao MySQL.

Eu queria que quando eu clico em conectar no meu programa, ele verifica a conexao e, se tiver tudo certo ele conecta.

Eu fiz esse codigo, só que não da certo:

if dm.DBConexao.Connected=false then
try

DM.DBConexao.HostName:= 'xxx.xxx.xxx.xxx';
DM.DBConexao.Port:= 3306;
DM.DBConexao.Connected:=true;

except
on E: EDBEngineError do

 ShowMessage('Não foi possivel estabelecer uma conexao com o servidor, verifique seu firewall.');
 end;

E quando ele verificasse a conexão gostaria de saber se é possivel ter um ProgressBar carregando enquando verifica...