请高手看看,下面这段代码有没有内存泄漏?

假设已经有一个tlist对象alist.
并声明了一个类Taclass
下面是代码:
procedure test
var
  pVar:Taclass;
  i:integer;
begin
  for i:=0 to 9 do
  begin
    pVar:=Taclasss.Create;
    alist.Add(Pointer(pVar));
  end;
  //干一些其他事
  for i:=9 downto 0 do
  begin
    pVar:=Taclass(alist.items[i]);
    pVar.Free;
    alist.Delete(i);
  end;
end;