用内存共享会吃内存？


type
  PashuRecord=record
    mStartP:Integer;
    mEndP: Integer;
    mTotalP: Integer;
    mCurrP: Integer;
    mPrevP: Integer;
    mBeat: Integer;
    mTime: Integer;
    mPSstatus: Integer;
    mMMstatus: Integer;
  end;
  pPR=^PashuRecord;var
  tPSR: pPR;
  PSR: PashuRecord;
  hwd: Thandle;
  p:Pointer;procedure TForm1.FormCreate(Sender: TObject);
begin
  hwd:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,SizeOf(PSR),pchar('PaShuShareData'));
  if hwd=0 then
    ShowMessage('Failed');
end;procedure TForm1.tmr1Timer(Sender: TObject);
//var  s:Integer;
begin
//  hwd:=OpenFileMapping(FILE_MAP_ALL_ACCESS,False,pchar('PaShuShareData'));
  if hwd<>0 then begin
    p:=MapViewOfFile(hwd,FILE_MAP_ALL_ACCESS,0,0,0);
    if p<>nil then begin
    //s:=pPR(p)^.mBeat;
      Label10.Caption := IntToStr(pPR(p)^.mCurrP);
    end;
  end;
end;
1秒执行一次tmr1,把记录中的值显示出来。程序是可以运行的，但用任务管理器来看，程序占用内存量是每秒增大4K，这是什么原因？应该怎么解决？