TSQLQuery (BCB 6.0) создает новое подключение при каждом запросе

Я использую компонент TSQLQuery, который работает через TSQLConnection.
В начале программы я делаю SQLConnection->Connected=true;
Потом в цикле я делаю
SQLQuery->SQL->Text = ...;
SQLQuery->ExecSQL();

Помимо этого делаю еще :

SQLQuery_1->SQL->Text = ...;
SQLQuery_1->Close();
SQLQuery_1->Open();

Видно, что происходят новые подключения, но неизвестно откуда, потому как я соединение не рву

Как бы сделать, чтобы новых не было, просто при большом количестве запросов MySQL нервничать начинает и больше не дает создавать соединения?

P.S. Кстати, если обработать событие, BeforeConnect, можно увидеть, что соединение один раз всего происходит