Weird Firemonkey TTreeViewItems....

Weird Firemonkey TTreeViewItems....

I'm trying to derive from TTreeViewItem, like:

type
TParentTreeViewItem = class(TTreeViewItem)
end;

TChildTreeViewItem = class(TParentTreeViewItem)
end;

....

Then in the FormCreate, instantiate them:

procedure TForm1.FormCreate(Sender: TObject);
var
aTI: TTreeViewItem;
aPI: TParentTreeViewItem;
aCI: TChildTreeViewItem;

begin
aTI := TTreeViewItem.Create(Self);
aTI.Text := 'TreeViewItem';

aPI := TParentTreeViewItem.Create(Self);
aPI.Text := 'ParentTreeViewItem';

aCI := TChildTreeViewItem.Create(Self);
aCI.Text := 'ChildTreeViewItem';

TreeView1.AddObject(aTI);
TreeView1.AddObject(aPI);
TreeView1.AddObject(aCI);
end;

'aTI' and 'aPI' both display as expected, but 'aCI' is added to the tree, but no text is displayed.

Am I doing some something wrong here?

Cheers

Vince