Just wanted to let you know that there is a fairly serious omission in this FAQ article, the declaration for FPersons is missing from the Form1 Class. I'm sure a real programmer would not be confused for a moment by this - but it took me a while to work out what was missing and rather detracts from the effectiveness of the example!
There are also double single quotes round the strings : ' 'Tom Jones' ' and Generics.Collections is needed in the Uses clause.
TForm1 = class(TForm)
AdvCheckedTreeView1: TAdvCheckedTreeView;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure AdvCheckedTreeView1AfterCheckNode(Sender: TObject;
ANode: TAdvTreeViewVirtualNode; AColumn: Integer);
private
{ Private declarations }
public
{ Public declarations }
FPersons: TObjectList<TPerson>;
end;