这个函数的实现方法可能是这样的：

PMyType = ^TMytype

TMytype = record
a:Integer;
b:Pointer;
c:array[0..6] of char;
end;

MyRec: PMyType;

然后，AllocResource(MyRec),

内部的实现代码可能是： New(MyRec);

这里，不管 MyRec 究竟是什么样子的类型，它都可以分配内存？比如，把 TMyType 换成别的类型也没问题。