...
docWord: TWordDocument;
...
var Link : Word2000.Hyperlink;
     i : Integer;
     Index : OleVariant;
     LinkName : String;
begin
      for i:=docWord.Hyperlinks.Count downto  1  do
       begin
        with docWord.Hyperlinks do
         begin
           Index := i;
           Link := docWord.Hyperlinks.Item(Index);
           LinkName := Link.Name;
           LinkName := StrUpper(PChar(LinkName));
          try
           ....
          except end;
           Link.Delete;
         end;
       end;
end;