TreeView1.Items[0].Data как переназначить указатели

[LuckyD]

Хочу привязать к ноде TtreeView дополнительное значение.
Назначение и чтение проходит удачно, но на попытки очистить и измененить компилятор выдает ошибку.

  PMyData = ^TMyData;
  TMyData = record
    par1: string;
    par2: TDateTime;
  end;
procedure TForm1.FormCreate(Sender: TObject);
var
  p: PMyData;
begin

  TreeView1.Items.AddChild(nil,'Hello');
  New(p);
  p^.par1:= 'Hello, World!';
  p^.par2:= Now;
  TreeView1.Items[0].Data:= p; // запись указателя делает

//  чтение тоже идет
with TreeView1.Selected do
  ShowMessage(PMyData(Data).par1 + #13 + DateToStr(PMyData(Data).par2));

// c переназначением проблема
  New(p);
  p^.par1:= 'Hello, World!';
  p^.par2:= Now;
  TreeView1.Items[0].Data:= p;

// и c очисткой проблема
Dispose(PMyData(TreeView1.Items[0].Data));

End;

Подскажите пожалуйста что не правильно делаю

[3D Hunter]

во-первых, вы создаете узел, потом присваиваете данные полю data первого узла, хотя созданный узел не всегда первый, да к тому же и выделенный. с индексами поработайте и все будет ок.

[LuckyD]

Спасибо за ответ. Действительно с индексами была несостыстыковка. Сейчас отладил. Но очистка памяти Dispose(PMyData(TreeView1.Items[0].Data)) по прежнему не работает - отладчик проходит эту строку не изменяя значения.

[Stilet]

отладчик проходит эту строку не изменяя значения.

А с чего ты взял что Dispose() обнуляет указатель?
Вот из хелпа:

After a call to Dispose, the value of P is undefined and it is an error to reference P.

Про nil не сказано ничего.