Jeg har hurtigt forsøgt at lave et eksempel. Det ser umiddelbart ud til at virke, men jeg har ikke testet det 100%. Du skal have fat i den event der hedder OnAdvancedCustomDrawItem for din TreeView
procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, DefaultDraw: Boolean);
var
R: TRect;
begin
if Stage = cdPostPaint then
with TreeView1.Canvas do begin
R := Node.DisplayRect(true);
Brush.Style := bsClear;
Font.Assign(TreeView1.Font);
Font.Color := clBlue;
TextOut(R.Right+8, R.Top, '('+IntToStr(Node.Index)+')');
end;
end;