new 和 free--内存分配问题
procedure TPaperView.BtnAddClick(Sender: TObject);
var
aItem:PQItem;
begin
new(aItem);
.
.
.
TQItem(aItem).free;---> 出错
end;
其中,PQItem=^TQItem;
请问怎么样才能释放我用new分配的这个内存?

[解决办法]
new过程对应的是dispose过程

procedure TPaperView.BtnAddClick(Sender: TObject);
var
aItem:PQItem;
begin
new(aItem);
.
.
.
dispose(aItem);
end;

[解决办法]
dispose(aItem);

free用来释放对象占用的内存,不适合New