Document.Bookmarks.Item['BookmarkName'].Delete;

procedure WordDeleteBookmark(rBookMark: string);
var
  Name: OLEVariant;
begin
  Name := rBookmark;
  Form1.worddocument1.Bookmarks.Item(Name).Delete;
end;