new 和 free-内存分配有关问题

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