procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode;
  State: TCustomDrawState; Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);
var
  R: TRect;
begin
  if (Stage = cdPrePaint) and (cdsHot in State) then
  begin
    R := Node.DisplayRect(False);
    ImageList1.Draw(TreeView1.Canvas, TreeView1.ClientWidth - ImageList1.Width - 4, R.Top, 0);
  end;
end;