Una tercera opcion seria capturar el error en una variable de tipo
Exception, y agregarle lo que quisieramos o personalizar el mensaje de error.
Código Delphi
[-] try
try
MysqlConecta.Connect; except on MyVariable : Exception do begin
MyVariable.Message:='Error en la Conexion.'+#13+#10+'Detalles -->'+#13+#10+'"'+MyVariable.Message+'"';
txtInfo.Lines.Add(MyVariable.Message);
end;
end;
finally
if MysqlConecta.Connected then
txtInfo.Lines.Add('Conexion exitosa');
end;
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7