如何对Firemonkey Treeview进行排序？

Question

使用此功能可以对不同FMX组件中的项目进行排序：

function(Right, Left: TFmxObject): Integer;

这对我有一个ListBox，但我无法弄清楚如何对TreeView进行排序。

function SortText(Left, Right: TFMXObject): Integer;
begin
  Result := CompareText((Left as TTreeViewItem).Text, (Right as TTreeViewItem).Text);
end;

这不起作用，但我不知道为什么。