Detecting an Image?

How do I cycle thru the objects of a TWPRichText and detect if it contains a image?

Thanks in advance.

You can work with a list of objects:

var list : TWPTextObjList;
begin
   list := WPRichText1.CodeListTags(wpobjImage);
   try
     for I := 0 to list.Count-1 do
       list[i].ObjRef ...
   finally
     list.Free;
   end;
end;