Como mostrar una lista de bases de datos en un servidor MySQL con Zeos?

[guillote]

Hi!

Necesito mostrar una lista de base de datos de un servidor MySQL con zeos y esto es lo que hago:

ZMainConnection.User := 'root';
ZMainConnection.Password := 'pass';
ZMainConnection.HostName := 'localhost';
ZMainConnection.Database := 'mysql';
ZMainConnection.Protocol := 'mysql';

ZQuery.SQL.Text := 'show databases';
ZQuery.Connection := ZMainConnection;
ZQuery.ExecSQL;

Ok. Hasta aca no he tenido ningun problema... el problema lo tengo cuando quiero conectar a un servidor remoto donde no tengo permisos para acceder a la base 'mysql' y no se que bases de datos existen en ese servidor ... presisamente necesito obtener una lista de ellas para seleccionar una ... en definitiva no puedo ejecutar:

ZMainConnection.Connect;

sin haber especificado una 'databse' en:

ZMainConnection.database := '';



Gracias.
Saludos.