关于TList操作及释放的问题

大家都知道TList即可用于链表，又可用于数组，最近在做项目时遇到点小问题（可能是我对指针了解的不透彻吧），造成了不大不小的问题，下面就说说是怎么回事。
首先我先定义了Record及对应的指针类型。

PGoodsInfo = ^GoodsInfo;
GoodsInfo = record
ID : string;
Name : string;
Number : string;
end;

下面是定义变量及添加数据

var
GoodsList : TList;
P:PGoodsInfo;
begin
GoodsList := TList.Create;
New(P);
P^.ID := '****';
P^.Name := '*****';
P^.Number := '*****';
GoodsList.Add(P);
end;

下面是错误的释放代码

var
i:Integer;
begin
for i := 0 to GoodsList.Count - 1 do
begin
Dispose(GoodsList.Items[i]); //这会造成内存泄漏
end;
GoodsList.Clear;
end;

正确的释放代码

var
i:Integer;
PGoods: PGoodsInfo;
begin
for i := 0 to GoodsList.Count - 1 do
begin
PGoods := GoodsList.Items[i];
Dispose(PGoods);
end;
GoodsList.Clear;
end;

我想正是因为程序不知道指针所对应的数据类型才会造成内存泄漏，指出就可以啦。望大家吸取教训。