显示文件Size,为何取第二次就不更新了?(100分)

procedure TForm1.LookFileSize;
var
FF:TSearchrec;
begin
if FindFirst(MyPath1.SelfPath+'CMDB.MDB',faAnyFile,FF)= 0 then
panel7.Caption:='MDB数据库尺寸: '+inttostr(FF.Size)+' 字节';
if FindFirst(MyPath1.SelfPath+'CDBF.DBF',faAnyFile,FF)= 0 then
panel8.Caption:='DBF数据库尺寸: '+inttostr(FF.Size)+' 字节';
findclose(FF);
end;
这个过程调用后,两个数据库增加了数据,再次调用这个过程,显示结果还是原来的数据,为何
请大侠指点

可能你的数据没存盘呢？我的意思是没有写到文件里呢？

正常呀，access数据库，只要一次不是进行大量的读写、删除操作，它的大小都一般
不会变的。我自己编的程序每次往mdb文件里写一条数据，大小一直是156k