如何提高TTreeView使用效率？

我在TreeView控件添加节点时,添加500个节点:
...
for i:=0 to 499 do
begin
  new(p);
  TreeView1.Items.AddChildObject(nil,inttostr(i),p);
end;
{p指向一个结构}在最后释放节点时：
for i:=0 to  TreeView1.Items.count-1 do
begin
  if TreeView1.Items[i].Data<>nil then
    dispose(TreeView1.Items[i].Data);
end;
TreeView1.Items.Clear;
释放的速度很慢，如果节点数再多，速度太慢，请教有没有方法提高释放效率？