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;

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;

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;