Cambiar Color a un Nodo del TreeView al preisonar alguna TECLA

[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.

[[Lepe]]

la linea que cambia de color un nodo determinado, debes incluirla en el evento AdvancedCustomDrawItem del Treeview1.

Saludos

[AGAG4]

Empezado por Lepe

la linea que cambia de color un nodo determinado, debes incluirla en el evento AdvancedCustomDrawItem del Treeview1.
Saludos

Estoy de acuerdo con usted pero como mandaría a llamar ese evento con sus parámetros desde el OnKeyDown, porque lo quiero es que al presionar alguna tecla cambiar el Color del NODO????

Código Delphi [-]
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);