Delphi FreeMem 内存释放

1、之所以不出错，是因为操作系统目前还没有使用这块内存，释放和重新利用是两个概念。

2、ZeroMemory与FreeMem根本就是两个不同功能的函数，一个清空内存（填充0），一个释放内存（把资源还给操作系统），代替个球？

3、CopyMemory仅仅是复制了9个字符，字符串必须以0结尾，你也没有置零。把 GetMem(A^.pac, 100)改成A^.pac := AllocMem(100)才对。