Hi,
versuch doch mal folgendes, ist nicht getestet:
Delphi-Quellcode:
type
TMyTree = class (TObjectList)
private
function GetItem(ndx: Integer): TMyTree;
procedure SetItem(ndx: Integer; const Value: TMyTree);
public
property Items[ndx: Integer] : TMyTree read GetItem write SetItem;
end;