Проблема с памятью при использовании TQuery

Я использую следующий код

Form1->Query1->SQL->Clear();
Form1->Query1->Params->CreateParam(ftDate, "Date0", ptInput);
Form1->Query1->Params->CreateParam(ftDate, "Date1", ptInput);
Form1->Query1->Params->Items[0]->AsDate=StrToDate(D0);
Form1->Query1->Params->Items[1]->AsDate=StrToDate(D1);
Form1->Query1->SQL->Add(sqlNDS);
Form1->Query1->ExecSQL();
Form1->Query1->Open();

При этом память забивается и не освобождается. Соответственно при использовании его много раз, не выходя из приложения, наступает момент, когда выскакивает сообщение о нехватке памяти.
Как с этим бороться?