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

[TeTSuO]

Hallo Leute ich hab ein Problem!
Ich habe eine Treeview in der mehrere Elemente sind und ein dyn. Array welches für jeden Eintrag die daten enthalt diese werden mittels

TreeNode.Data := @Array[Index] and das TreeNode gehängt
Wenn ich nun ein Element auswähle und dieses mit

Delphi-Quellcode:

DeletePicture(TreeView.Selected.Data);
TreeView.Selected.Delete;

löschen will verschwindet es zwar in dem TreeView
wenn ich aber nun das letzte Element im TreeView auswähle
kommt ne Fehlermeldung

Meine Löschprozedur hab ich so programmiert

Delphi-Quellcode:

Function DeletePicture(PicInfo:Pointer): Boolean;
Var I,Index: Integer;
    ptr2: ^TPictureInfo;
Begin
 Result:=False;Index:=-1;
 For I:=0 to Count-1 do Begin
   ptr2:=@Picture[I];
   if PicInfo = ptr2 Then Index:=I;
 End;ptr2:=nil;
 if Index <> -1 Then Begin
   For I:=Index to high(Picture)-1 do
     Picture[I]:=Picture[I+1];
   SetLength(Picture,Count-1);
   Result:=True;
 End;
End;