Подскажите как программно нажать на ссылку с определенным InnerText, в Twebbrowsere?

TWebBrowser.Navigate + F1

procedure TForm1.Button2Click(Sender: TObject);
var
  HtmlDocument: IHtmlDocument2;
  HtmlCollection: IHtmlElementCollection;
  HtmlElement: IHtmlElement;
  I: Integer;
begin
  HtmlDocument := WebBrowser1.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;
    


end;
end;

Что дальше надо написать чтобы произошел click с определенным InnerText?

InnerText тут для поиска? вы прочитали справку по указанному методу?

Мне надо найти ссылку в WebBrowser1 и нажать на неё.
Нашёл решение.

procedure TForm1.Button2Click(Sender: TObject);
var
  HtmlDocument: IHtmlDocument2;
  HtmlCollection: IHtmlElementCollection;
  HtmlElement: IHtmlElement;
  I: Integer;
begin
  HtmlDocument := WebBrowser1.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 = 'текст ссылки' then
    begin
     HtmlElement.click;
  end;
 end;
end;