Dispose无法全面释放内存的问题

我定义了以下变量
type
  Byte_Array = Array of Byte;
  PBtye_Array = ^Byte_Array;  PFXImage = ^TFXImage;
  TFXImage = record
    iWidth,iHeight: Integer;        
    iPitch: Integer;                
    bBW: Integer;                   
    color_map: Byte_Array;          
    iComponents: Integer;          
    components_offsets: Array of Byte_Array;   
    pData: Byte_Array;             
    iDPI_W,iDPI_H: Integer;        
  end;在程序使用过程中，
var
  FXImage：PFXImage；
begin 
new(FXImage)
......
......
Dispose(PFXImage(FXImage))
end；FXImage存储的是大容量的bmp信息，当返回new，dispose之后，发现系统内存是逐渐上涨的，也就是说Dispose(PFXImage(FXImage))没有完全释放开辟的内存。请大家看看如何才能完全释放开辟的内存