多线程写数据库，虚拟内存不住增长

多线程写数据库，虚拟内存不断增长
delphi7+sql server2005
我在多线程中往数据库中写入记录，3分钟120条左右数据，运行一天后，虚拟内存增长24M，平均每小时1M，屏蔽掉execsql后，虚拟内存没有变化，为什么？怎么解决？？
sqlstr := 'insert into tab(sbbh,sendtime,td1,td1bj) valuse('1','2012-04-20 10:11:12','10MPA','正常')';
with qry do begin
  close;
  sql.clear;
  sql.add(sqlstr);
  //屏蔽掉下行就不增长了，帮帮忙啊！
  execsql;
end;

[解决办法]
sql server不太了解，不防加入事务试试。或者换一个Query控件试试。