thanks you mean like this :
procedure tmainfo.on_create(const sender: TObject); var item : ttreelistedititem; begin item := ttreelistedititem.create; item.caption := 'root'; ttreeitemedit1.itemlist.add(item); end; how to add a child to root item ? ------------------------------------------------------------------------------ _______________________________________________ mseide-msegui-talk mailing list mseide-msegui-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk