В TreeView текущий Node выделяется другим шрифтом

Настоящий программист ест один раз в день - с утра и до вечера.

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if cdsSelected in State then
Sender.Canvas.Font.Style := Sender.Canvas.Font.Style + [fsUnderline];
end;

Далее: Возможность отмены вставки нового узла в TTreeView по нажатию кнопки Esc »»