function TFVSSBrowseForm.BuiltTreeSibling(VSSDatabase :TVSSDatabase; AParentNode: TTreeNode; const Spec :String) :TTreeNode;
var  VSSItem :IVSSItem;
     ANode :TTreeNode;
     J,I,N :Integer;
     S, S1, S2 :String;
     INo :OleVariant;
begin
  Result := nil;
  try
    Screen.Cursor := crHourglass;
    c_Tree.Items.BeginUpdate;
    ASpecList.Objects[Integer(AParentNode.Data) -  1 ] := TObject( 1 ); // was expanded

    try
      VSSItem := VSSDatabase.VSSItem[Spec, False];
    except
      on E :Exception do
      begin
        ShowMessage(E.Message + CR + LF + ' Spec:' + Spec + CR + LF + 'Node:' + S);
        raise;
      end;
    end;
    for I :=  1  to VSSItem.Items[False].Count do
    begin
      INo := OleVariant(I);
      if VSSItem.Items[False].Item[INo].Type_ = VSSITEM_PROJECT then
      begin
        N := ASpecList.Add(VSSItem.Items[False].Item[INo].Spec + '/');
        S1 := VSSItem.Items[False].Item[INo].Name;
        if Result = nil then
          Result := c_Tree.Items.AddChildObject(AParentNode, S1, TObject(N +  1 ))
        else c_Tree.Items.AddChildObject(AParentNode, S1, TObject(N +  1 ));
      end;
    end;

    if Result <> nil then
    begin
      S := Spec;
      for I :=  0  to AParentNode.Count -  1  do
      begin
        ANode := AParentNode.Item[I];
        S := Spec + ANode.Text + '/';  // LocalSpec

        VSSItem := VSSDatabase.VSSItem[S, False];
        // ANode.HasChildren := (VSSItem.Items[False].Count >  0 );
        if (ItemTreshold >  0 ) and (VSSItem.Items[False].Count > ItemTreshold) then
          Break;

        for J :=  1  to VSSItem.Items[False].Count do
        begin
          INo := OleVariant(J);
          if VSSItem.Items[False].Item[INo].Type_ = VSSITEM_PROJECT then
          begin
            ANode.HasChildren := True;
            Break;
          end;
        end;
        if c_Tree.Items.Count >  1024  then Break;
      end;
    end;
  finally
    c_Tree.Items.EndUpdate;
    Screen.Cursor := crDefault;
  end;
end;