如何获取某一指定文件的SIZE (字节内容)?

使用如下方法获取,但效果未能理想;

============================================
procedure TForm1.Button1Click(Sender: TObject);
var
asize:tfilestream;
a:int64;
begin
asize:=tfilestream.Create('C:\DATA.MDB',fmShareDenyNone);
a:=asize.Size;
edit1.text:=inttostr(a);
end;

================================================
不理想的主要是当加入100条记录后,SIZE仍然没有增大,未能准确获取字节数;
请问有更准确的获取方法吗??

從這找到的
http://www.programmersheaven.com/mb/access/272998/272998/ReadMessage.aspx
If the file is an Access MDB, it will not shrink in size just by deleting records. You need to use the Access utility, Compact/Repair database to physically rewrite the file and remove the space that the deleted records used to occupy.

------
努力會更接近成功