[AGAG4]

Ya tengo algo, en el OnKeyDown del TreeView al presionar por ejemplo el <ENTER> mando llamar el siguiente procedimiento:

Código Delphi [-]
procedure tform1.OnKeyDown(..)
begin
  if key=13 then
    CambiaEstado(tArbol.Selected);
end;
 
procedure tform1.CambiaEstado(Node: TTreeNode);
begin
  if Assigned(Node) then
    Node.TreeView.Canvas.Font.Color:=clRED;
end;

El detalle es que "EL NODO NO CAMBIA DE COLOR" , no se que me faltará ó este haciendo algo mal.
Cualquier sugerencia se los agradezco.