删除TreeView中选中结点，并自动选中其上一个结点，如何使高亮？

下面这段代码实现点击Form上的del_btn按钮后，删除选中结点，选中其前一个结点，若没有前一个，则选中其父结点。可如何使新选中的结点高亮（象鼠标点中变蓝一样）呢？请高手指点。procedure TProjSplit_Form.del_btnClick(Sender: TObject);
var previousNode:TTreeNode;//存放新选中结点
begin
   if (selectedNode <> nil) and (selectedNode.Parent <> nil) then begin
       previousNode:= selectedNode.GetPrev;
       selectedNode.Selected:=false;
       //若有前一个结点，则选中。 
      if previousNode<>nil then
       begin
       showmessage('previous!');
       previousNode.Selected:=true;
       //previousNode.Focused:=true;
       showmessage('previous!');
       //若没有前一个结点，则选中父                                      
       end else begin
          showmessage('parent!');
          previousNode:=selectedNode.Parent;
          previousNode.Selected:=true;
          showmessage('parent!');
       end;
       selectedNode.Delete;
       selectedNode:=nil;
       previousNode.Focused:=true;
   end;
end;