1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

type
  TMyClass = ^MyClassData;
  MyClassData = Packed Record
    Index: Integer;
  end;

var
  MyClass: TMyClass;
begin
  New(MyClass);
  MyClass.Index := 1;
  TreeView1.Items.AddChildObject(NIL, 'Item 1', MyClass);

  New(MyClass);
  MyClass.Index := 3;
  TreeView1.Items.AddChildObject(NIL, 'Item 3', MyClass);

  New(MyClass);
  MyClass.Index := 2;
  TreeView1.Items.AddChildObject(NIL, 'Item 2', MyClass);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

uses Math;
type
  PMyClassData= ^TMyClassData;
  TMyClassData = Packed Record
    Index: Integer;
  end;

function SortMyClass(P1: Integer; P2: Integer; LSort: Integer): Integer;
var My1,My2: PMyClassData;
begin
  My1:= PMyClassData(Form1.TreeView1.Items[P1].Data);
  My2:= PMyClassData(Form1.TreeView1.Items[P2].Data);
  Result:= CompareValue(My1.Index,My2.Index);
end;

procedure Sort();
begin
  TreeView1.Items[0].CustomSort(@SortMyClass,0,true);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.TreeView1Compare(Sender: TObject; Node1, Node2: TTreeNode;
  Data: Integer; var Compare: Integer);
var My1,My2: PMyClassData;
begin
  My1:= PMyClassData(Node1.Data);
  My2:= PMyClassData(Node2.Data);
  Compare:= CompareValue(My1.Index,My2.Index);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button2Click(Sender: TObject);
var MyClass: PMyClassData;
    i: Integer;
begin
  For i:= 1 to 5 do
  begin
    New(MyClass);
    MyClass.Index := i;
    TreeView1.Items.AddObject(nil, 'Item '+IntToStr(i), MyClass);
  end;
end;