How to identify an image using a property

Using XE7 with WPT 7.21
I want to identify one of several images in a document for providing editing functionality for this image.
So, I insert the original image into the document using the following code, and try to keep some identification of that image using the properties FileName, Extra, ObjTag and Tag

TextObject := TWPOImage.Create(WPRichText1.Memo.RTFData);  TextObject.LoadFromFile(sFle);TextObject.FileName := 'Paint';      TextObject.Extra := 'Paint';TextObject.ObjTag := 6969;TextObject.Tag := 6969;WPRichText1.TextObjects.Insert(TextObject);

If I remain in the current editing sesión of the document, I can retrieve those properties, but if I save the document, and later open again, then those properties are not saved in the RTF.
I want to use the following code, but any of the FileName, Extra, ObjTag and Tag has any value.

if WPRichText1.TextObjects.SelectedObj <> nil then
  begin
    if WPRichText1.TextObjects.SelectedObj.IsImage then
    begin
      if WPRichText1.TextObjects.SelectedObj.ObjRef.FileName = 'Paint' then
      begin
        // Create a temp file
        sFle := gsProgs + '\temp\paint.bmp';
        WPRichText1.TextObjects.SelectedObj.ObjRef.SaveToFile(sFle);


        frmPaint := TfrmPaint.Create(Self);
        frmPaint.ShowModal;
        frmPaint.Free;


        // Reload the modifyed image
        WPRichText1.TextObjects.SelectedObj.LoadObjFromFile(sFle);
        WPRichText1.TextObjects.SelectedObj.ObjRef.FileName := 'Paint';
        DeleteFile(sFle);
      end;
    end;
  end;

So, what property of the actual object must I use to persist a value for identifying that image

I am saving a bitmap created in the same application using standard Delphi components.

I insist in to embed the image into the rtf, so, following your suggestions, I am using this code that now is working:

TextObject := TWPOImage.Create(WPRichText1.Memo.RTFData);
  TextObject.LoadFromFile(sFle);
  WPRichText1.TextObjects.Insert(TextObject);
  iK := WPRichText1.TextObjects.ObjCount;
  WPRichText1.TextObjects.ObjList[iK-1].Name := 'Paint';

While testing this solution, using .Source property instead of .Name, I can see the image on screen, but once the RTF document is saved, when I reopen, the image is blank, perhaps Source is intended to content another type of information.

I assign "Source" instead of "Name" in the last code above. That is

Zitat

WPRichText1.TextObjects.Insert(TextObject);
iK := WPRichText1.TextObjects.ObjCount;
WPRichText1.TextObjects.ObjList[iK-1].Source:= 'Paint';

Doing so, it seems that the image is saved blank.

If in the above code, I use "Name", instead "Source", then it is working correctly.