//==========
if (mysql_query(sql, buffer) != 0 || sql == NULL || mysql_errno(sql))
{
    strcpy("Ошибка запроса данных пользователя", buffer);
    ShowMySQLError(buffer);
    return;
}
//==========
void ShowMySQLError(char* title)
{
    char* errtext = strdup(mysql_error(sql));
    MyMessageBox(title, errtext, STATUS_ERROR);
}

 TXSql=record
     _Open:TOpenSql;
     _Close:TCloseSql;
     _Query:TQuerySql;
     _Exec:TQuerySql;
     _DropTable:TQuerySql;
     _EmptyTable:TQuerySql;
     _ListTable:TQuerySql;
    ..... думаем... :)
  end;

TQuerySql=function(const sql: string):boolean;
TGetRowSql=function(var Result: TData):boolean; 
TErrorSql=procedure(var err: Integer; var ErrNm: string);

TXSql=record
     _Open: TOpenDBSql;  // открываем базу
     _Close: TCloseSql;   // закрываем
     _Query: TQuerySql;  // Выполняем запросы. SELECT, UPDATE, DROP TABLE, CREATE TABLE, INSERT, 
                                    // DELETE и прочие. не стоит делать процедуры на каждую SQL комманду.
                                    // если произошла ошибка при выполнении запроса то =false
     _GetRow: TGetRowSql; // возвращает строку результир. таблицы в виде MT цепочки. Равна false если последняя строка.
                                       // работает по принципу FindNext. Альтернативное имя FetchRow.
     _Error: TErrorSql;    // возвращает номер и текст ошибки
  end;