IB & Memory

Пользуюсь компонентами FreeIBComponents
Параметры трансакции:
concurrency
wait
{====== сама процедура добавления ==========}
SQL_.SelectSQL := TTab.Lines; //сам SQL запрос вида Insert ...
TR_.AddDatabase(IBD_); // ... для открытой БД
Tr_.Timeout:=500; //аут трансакции
if not Tr_.InTransaction then // проверяем ...
Tr_.StartTransaction; // и создаём трансакцию
SQL_.Database:=IBD_; //
SQL_.Transaction:=TR_; // привязываемся к БД и Трансакции
if SQL_.Active then
SQL_.Active := False; // сбрасываем активность
SQL_.QSelect.ParamCheck := True;
try
SQL_.Prepare; // ... собственно, готовим
except
{======..... ======}
end
else
raise;
end;
end;
SQL_.Active := True; //... устанавливаем активность
Tr_.Commit; // скинуть данные. ВСЁ.
{------------------------------------------}
клиет постоянно висит в ON-Line не отключаясь от БД
и приложение не закрывает соединение с БД.
Эта процедура повторяется несколько раз в сек.
!!!!!!!!!!!!!!
при этом, занимаемая память(ОЗУ) Interbase(не моей программы) увеличивается на размер записи...
по истичении нескольких часов работы сервер подминает под себя всю свободную память.
!!!!!!!!!!!!!!!
Как с Этим бороться?