Duda el TreeView

[VRO]

Hola a todo el mundo,

vereis tengo un formulario principal con u TreeView, 2dbGrid y botones lo que yo quiero es cuando pulso fuera del TreeView en alguno de los componentes anteriores, me cambie el color del nodo que había seleccionado en el TreeView. Con el Método OnCustomDrawItem me camia de color perfectamente pero siempre que me encuentro moviendome en el TreeView .
Para hacer esto creo la siguiente función:

Código Delphi [-]
 arb:=treeview.selected;
 arb es de tipo TTreeNode;
 arb:=arb.treeview; y ya le tengo de tipo TCustomDrawItem;
  procedure TForm1.color(arb:TCustomTreeView;state:TCustomDraState)
   begin
      if cdsSelected in state then
         arb.selected.treeview.canvas.brush.color:=clGray;
   end;

pues bien no me da error per no me le cambia de color, si alguien se le ocurre alguna forma??

Gracias por todo.