TextObjects.FindName no longer supported?

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,

using the List/Count you have access to all objects and can compare the properties.

Julian