TVirtualStringTree AddChild access violation

[EricMeyer]

Ich habe ein Problem damit zu verstehen, warum ich eine access violation bekomme.
ich bekomme in der Zeile "Item := Tree.AddChild(Item);" ein access violation beim zweiten Schleifendurchlauf. Ich habe darüber LData := Tree.GetnodeData(Item); geschrieben, um zu gucken, ob das Item ein bereits definierter Node ist und Daten sind da. Meines Verständnisses nach müsste das Access Violation in der Zeile bedeutet, dass das Item sich weigert ein neues Child anzunehmen. Das ergibt in meinem Kopf keinen Sinn.

Delphi-Quellcode:

procedure TFrameTreeView.GetDirectories(Tree: TVirtualStringTree; Directory: string; Item: PVirtualNode; IncludeFiles: Boolean);
var
  SearchRec: TSearchRec;
  ItemTemp: PVirtualNode;
  LNode : PVirtualNode;
  LData : PTreeData;
  Lteststring : string;
  I: Integer;
  begin
  Tree.BeginUpdate;
  if Directory[Length(Directory)] <> '\' then
    Directory := Directory + '\';
  if FindFirst(Directory + '*.*', faDirectory, SearchRec) = 0 then
  begin

    repeat //loop
      if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] <> '.') then
      begin
        if (SearchRec.Attr and faDirectory > 0) then
          begin
            try
              if not Assigned(Item) then
                  break;
              LData := Tree.GetnodeData(Item);
              Item := Tree.AddChild(Item);  //<------ access violation 
              LData := Tree.GetnodeData(Item);
              LData^.FPath := Directory+SearchRec.Name;
              LData^.FFolderName := SearchRec.Name;
              LData^.FFirstFolder := false;
              Tree.NodeDataSize := SizeOf(TTreeData);
              Tree.ValidateNode(Item, False);
            except
              break;
            end;
          end;
        ItemTemp := Item.Parent;
        LData := Tree.GetnodeData(ItemTemp);
        GetDirectories(Tree, Directory + SearchRec.Name, Item, IncludeFiles);
        Item := ItemTemp;
      end
    until FindNext(SearchRec) <> 0;

    FindClose(SearchRec);
  end;
  Tree.EndUpdate;
end;

Delphi-Quellcode:

function  TFrameTreeView.CreateFirstNode(Adir : string):PVirtualNode ;
var
  LFirstNode : PVirtualNode;
  LData : PTreeData;
begin
   LFirstNode := TreeView2.AddChild(nil);
   LData := TreeView2.GetnodeData(LFirstNode);
   LData^.FFirstFolder := True;
   LData^.FPath := ADir;
   LData^.FFolderName := Adir;
   TreeView2.NodeDataSize := SizeOf(TTreeData);
   TreeView2.ValidateNode(LFirstNode, False);
   Result := LFirstNode;
end;

Delphi-Quellcode:

function TFrameTreeView.NodePath(Node: TTreeNode): string;
var
  anode : TTreeNode;
begin
  result := '';

  if Node <> nil then begin
    result := Node.Text +'\';

    anode := Node.Parent;
    while anode <> nil do begin
      result := anode.Text +'\' +result;
      anode := anode.Parent;
    end;
  end;
end;