Delphi FreeMem 内存释放

释放了结构指针dispose，释放了内存FreeMem，为什么内存中还是有数据？如果用ZeroMemory代替FreeMem的话就成功对Delphi了解的不是很深，希望高手指点！ 结构指针定义如下 PTTest = ^TTest; TTest = record pac: PAnsiChar; end; var A: PTTest; p... 释放了结构指针dispose，释放了内存FreeMem，为什么内存中还是有数据？如果用ZeroMemory代替FreeMem的话就成功对Delphi了解的不是很深，希望高手指点！ 结构指针定义如下 PTTest = ^TTest; TTest = record
pac: PAnsiChar;
end; var A: PTTest; procedure TForm2.FormCreate(Sender: TObject);
var
pp: PAnsiChar;
begin
pp := '123456789';
New(A); // 申请内存空间
GetMem(A^.pac， 100); // 开辟100个内存空间
CopyMemory(A^.pac， pp， 9); // 复制内存
FreeMem(A^.pac); // 释放内存
Dispose(A); // 释放引用 这个应该是把A指向空地址吧？ // 已经释放引用了，并且也 FreeMem 了
// 为什么还会弹出字符串呢？ // 我希望的结果应该是出错，因为A这个结构不存在了！
ShowMessage(string(A^.pac));end;