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;