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);