Puedes aumentar otro bloque
try pero con
except mas o menos asi:
Código Delphi
[-] try
try
MysqlConecta.Connect; except
end;
finally
if MysqlConecta.Connected then
txtInfo.Lines.Add('Conexion exitosa')
else txtInfo.Lines.Add('Error en la Conexion.');
end;
Otra opcion es personalizar el mensaje de error algo asi:
(Esta vez si vamos a escribir codigo en el bloque
except )
Código Delphi
[-]try
try
MysqlConecta.Connect; except
txtInfo.Lines.Add('Error en la Conexion.'); end;
finally
if MysqlConecta.Connected then
txtInfo.Lines.Add('Conexion exitosa');
end;
Los dos fragmentos de codigos anteriores serian semejantes.
Espero que te hubiera ayudado en algo.
.
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7