Was stimmt hier nicht ? Probleme mit Pointer und dyn. Arrays

[Muetze1]

Moin!

Na im Speicher...

Der Pointer kann doch auf einen Speicherbereich mit den Daten zeigen - was ist das Problem?

Zum Beispiel wenn dein TPictureInfo ein Record wäre:

Delphi-Quellcode:

Type
  PPictureInfo = ^TPictureInfo;
  TPictureInfo = Record
    FileName : String;
    WasAuchImmer: Integer;
  End;

....

Procedure TForm1.AddKnoten(Const AFileName, ACaption : String);
Var
  lInfo  : PPictureInfo;
  lNode  : TTreeNode;
Begin
  New(lInfo);
  lInfo.FileName := AFileName;
  
  lNode := Treeview1.Items.Add;
  lNode.Data := lInfo;
  lNode.Caption := ACaption;
End;

...

Procedure TForm1.FormDestroy;
Var
  lInfo : PPictureInfo;
Begin
  While ( TreeView1.Items.Count > 0 ) Do
  Begin
    lInfo := TreeView1.Items[0].Data;
    TreeView1.Items.[0].Delete;
    Dispose(lInfo);
  End;
End;

Der Code ist so mal schnell hingeklatscht, aber sollte das wichtige und wesentliche darlegen...

MfG
Muetze1