Finding bookmarks in clipboard text

var i: Integer;
  obj: TWPTextObj;
  apar : TParagraph;
begin


  apar := par;
  while apar<>nil do
  begin
     for i:=0 to apar.CharCount do
     begin
        obj := apar.ObjectRef[i];
        if (obj<>nil) and
           (obj.ObjType=wpobjBookmark) then
           obj.ObjName ...
     end;
     apar := apar.next;
  end;