Не работает функция: Найти ссылку с определённым текстом и нажать на неё(WB).

[rok_9]

Сегодня я пытался сделать поиск ссылки в WB(Delphy 7) по тексту(не полному а только части от ссылки).Например ссылка: "Войти в Яндекс". А я для поиска ввожу "Войти в". Так вот я написал функцию и она почему то не работает... ищет только если текст полностью совпадает с текстом ссылки.

function FindAndPressTextLink(WebBrowser: TWebBrowser; Text: string; Click:boolean):boolean ; 
var 
  HtmlDocument: IHtmlDocument2; 
  HtmlCollection: IHtmlElementCollection; 
  HtmlElement: IHtmlElement; 
  I: Integer; 
//  h:string; 
  a:boolean; 
begin 
  Result:=false; 
  a:=false; 
  HtmlDocument := WebBrowser.Document as IHtmlDocument2; 
  HtmlCollection := HtmlDocument.All; 
  HtmlCollection := HtmlCollection.Tags('A') as IHTMLElementCollection; 

  for I := 0 to HtmlCollection.Length - 1 do begin 
    HtmlElement := HtmlCollection.Item(i, 0) as IHtmlElement; 
    // Сначала проверяем не совпала ли ссылка с текстом полностью
//   if   HtmlElement.InnerText = Text  then 
  if Text=HtmlElement.InnerText then 
  begin 
     Result:=true; 
     if Click then 
      HtmlElement.click; 

  end else begin //если нет пробуем найти заданный текст в тексте найденной ссылки
    if FindWordInString(Text,HtmlElement.InnerText)  then 
    begin 
     Result:=true; 
     if Click then 
      HtmlElement.click; 
    end; 
  end; 
  end; 
end;

А там для поиска текста в каждой ссылке использовал функцию поиска в стринге.

function FindWordInString(FindS,InS:string): Boolean; 
var 
 i,j:integer; 
 s:string; 
 bool:boolean; 
begin 
Result:=false; 
  For i:=0 to (Length(InS)-Length(FindS)+1) do 
  begin 
    for j:=1 to Length(FindS) do 
    begin 
      s:= s + InS[i+j]; 
      if s = FindS then 
        bool:=true; 
        break; 
    end; 
    s:=''; 
    if bool then 
    begin 
      Result:=true; 
      break; 
    end; 


  end; 
end;

Помогите, пожалуйста, исправить функцию.
Заранее благодарен.