动态创建一个TDatabase, free后,内存怎么回收呢?

在程序中动态创建一个TDatabase, 使用完后也free了的, 但是程序内存怎么没有少下来呢,开始以为是程序哪里有问题, 于是就单独写了段测试程序, 里面只是创建一个TDataBase, 打开连接后什么也不做就关掉,然后在free掉, 但是内存还是没有减下来. 测试程序除了创建连接和断开,其他什么都没做, 代码大致如下创建TDataBase
  dbTest := TDatabase.Create(self);   //在这里的时候程序整个占用大概2M多一点
  dbTest.AliasName:='bb';
  dbTest.DatabaseName:='test';
  dbTest.Open;            //open的时候根据数据库类型不同,大概要增加4-6M的内存, 在我的
                          //delphi里面 这个时候程序占用了大概8M的内存  dbTest.close;           //这个时候整个程序的内存占用数会减少 2M左右
  dbTest.Free;            //奇怪的是,这个时候程序占用的内存数没有变化, 难道Free掉一个对象
                          //不会有内存变化么????
这样, 就会比创建TDatabase之前多占用了好几M内存,我也检查了数据连接,在close之后数据库连接确实是断开了的啊, 不知哪位大侠能解释一下啊, 小弟实在搞不清楚了,