FindName in TextObjects

How do I implement the FindName functionality of TextObjects in version 5?

This is what I currently do:

rtf.TextObjects.FindName('HeaderObject')

The object was inserted as TWPOImage:

HeaderObj := TWPOImage.Create(rtf);
HeaderObj.ObjName := 'HeaderObject';
HeaderObj.StreamName := HeaderStream
TextObjects.DefaultPositionMode := wpotChar;
TextObjects.Insert(HeaderObj);

Hi,

You can enumberate the list of objects using

for i := 0 to TextObjects.Count-1 do
obj := TextObjects.List[i];

Julian