[grandmasterdari]

egostar, lo de los bookmarks es un intento desesperado, en realidad no deberia ir ningun bookmark

consegui un ejemplo en su idioma

 procedure TFormTryMySQL.ConnectButtonClick(Sender: TObject);
 begin
   // Prüfen, ob wir eine aktive Verbindung haben. Falls ja, schliessen wir sie.
   if MySQLConnection1.Connected then CloseConnection(Sender);
   // Die Verbindungsparameter setzen.
   MySQLConnection1.HostName := HostEdit.Text;
   MySQLConnection1.UserName := UserEdit.Text;
   MySQLConnection1.Password := PasswdEdit.Text;
   MySQLConnection1.DatabaseName := 'mysql'; // MySQL ist immer vorhanden!
   ShowString('Opening a connection to server: ' + HostEdit.Text);
   MySQLConnection1.Open;
   // Zuerst eine Liste der verfügbaren Datenbanken abfragen.
   if MySQLConnection1.Connected then begin
     ShowString('Connected to server: ' + HostEdit.Text);
     ShowString('Retrieving list of available databases.');
     SQLQuery1.SQL.Text := 'show databases';
     SQLQuery1.Open;
     while not SQLQuery1.EOF do begin
       DatabaseComboBox.Items.Add(SQLQuery1.Fields[0].AsString);
       SQLQuery1.Next;
     end;
     SQLQuery1.Close;
     ShowString('List of databases received!');
   end;
 end;

es identico a lo que tengo, pero en c++, ahora... este chico solo usa un "open" y claro... con uno solo cualquiera lo hace

fuente -> aqui