[Himmelsbach]

Всем доброго времени суток.
Не как не могу понять как нажать на вот такую кнопку:
<button type="button" id="LikeST" class="btn btn-warning" onclick="gogo2()">Получить задание</button>

Как я пытался на неё нажать:

Код:

procedure TForm1.Button4Click(Sender: TObject);
var
  i:integer;
  s: String;
  html_tag: Variant;
begin
  html_tag:= WebBrowser1.OleObject.Document.forms.item(0).elements;
  for i:=0 to (html_tag.Length-1) do
  begin
      if (html_tag.item(i).id='LikeST') and (html_tag.item(i).onclick='gogo2()') then
      begin
      html_tag.item(i).click;
      end;
end;
end;

lmikle: пользуемся тегами.

Но в этом случае нечего не происходит (ошибки тоже не какой не вылетает).

Приведите пожалуйста пример нажатия на такую кнопку. Желательно с полным кодом. Спасибо!