Как нажать на кнопку (картинку) в TWebBrowser? [требует правки]

Как нажать на вот такую кнопку?

<div onclick="openLike()" style="cursor: pointer;"><img src="like.png" width="256"></div>
<img src="like.png" width="256">

Мне нужно нажать на эту кнопку программно. Пытался сделать это вот таким способом:

procedure TForm1.Button5Click(Sender: TObject);
var
  ovElements: OleVariant;
  k, p: Integer;
  Source, dest, ext: string;
begin
  ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
  for k := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
  begin
    Source := WebBrowser1.OleObject.Document.Images.Item(k).Src;
    try
      if (WebBrowser1.OleObject.Document.Images.Item(k).Src='like.png') then
      begin
        WebBrowser1.OleObject.Document.all.tags('img').item(k).click;
      end;
    except
  end;

Но ничего не происходит. Ошибка тоже не вылетает.