Проблемы с TQuery

Привет, народ...
такая проблема писал конвертатор для БД добавляет
в нее поле а потом выисляет его значение так вот в таблице записей примерно 1,5 тысячи и на 252 прога выдает exeption типа "Too many open tables"... вот код расскажите в чем ошибка?
.............................
Query1.SQL.Clear;
Query1.SQL.Add('ALTER TABLE "MedTable.db" ADD KolPlus INTEGER');
Query1.ExecSQL;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT Count(*) FROM "MedTable.db"');
Query1.Active := true;
Count := Query1.Fields.Fields[0].AsInteger;
Query1.Active := false;

for i := 1 to Count do
begin
Query1.SQL.Clear;
Query1.SQL.Add('SELECT z1, z2, z3, z4, z5, z6, z7, z8, z9, z10 FROM "MedTable.db" WHERE (Num = ' + IntToStr(i) + ')');
Query1.ExecSQL;
Query1.Active := true;

KolPlus := 0;
for j := 0 to 9 do if Query1.Fields.Fields[j].AsString = '+' then inc(KolPlus);

Query1.Active := false;
Query1.Close;

Query1.SQL.Clear;
Query1.SQL.Add('UPDATE "MedTable.db" A SET A.KolPlus = ' + IntToStr(KolPlus) + ' WHERE A.Num = ' + IntToStr(i));
Query1.ExecSQL;
Query1.Active := false;
end;