var

  Node, NextNode: PVirtualNode;

begin

  Node := VST.FocusedNode;

  if not Assigned(Node) then Exit;

 

  NextNode := VST.GetNextVisibleSibling(Node);

  if not Assigned(NextNode) then

    NextNode := VST.GetPreviousVisibleSibling(Node);

 

  if Assigned(NextNode) then

  begin

    VST.FocusedNode := NextNode; // вот такая вот мелочь нужна еще

    VST.Selected[NextNode] := True;

  end;

 

  VST.DeleteNode(Node);