Выполнить OnClick в HTML из Delphi 7 при помощи TWebBrowser

[Sashka009]

Всем привет! Прошу, помогите, пожалуйста, всё перепробовал, но ничего не выходит(((((
Есть поле для заполнения данных:

<div class="b-phrases-list__cell-content">

    <span class="b-edit-phrase-price b-edit-phrase-price_strategy_search i-bem b-edit-phrase-price_js_inited" onclick="return { 'b-edit-phrase-price': { modelPath: 'campaign&banner:240897539&phrase:1728343585', timetarget_coef: '100' } }">
        <input class="b-edit-phrase-price__price b-edit-phrase-price__price_mode_large" tabindex="1" maxlength="7" size="4" value="10.00" name="val_240897539_1728343585"></input>
    </span>

</div>

Нужно вбить туда своё value="99.99" - это получилось, однако, событие onClick не отработало, а пока оно не отработается мне будет недоступной кнопка сохранения.
Пытался найти событие следующим образом:

procedure TForm1.btn1Click(Sender: TObject);
var HtmlDocument, HtmlCollection: Variant;
    i: integer;
begin
  HtmlDocument:=WebBrowser1.Document as IHtmlDocument2;
  HtmlCollection:=HtmlDocument.All;
  for i:=0 to (HtmlCollection.Length - 1) do 
  begin
    if((HtmlCollection.item(i).tagName='span') and
      (HtmlCollection.item(i).className='b-edit-phrase-price b-edit-phrase-price_strategy_search i-bem b-edit-phrase-price_js_inited'))
      then
      begin
        ShowMessage('onClick найден!');
        HtmlCollection.item(i).click;
        Break;
      end;
  end;
  ShowMessage('Конец!');
end;

Этот отрывок кода, даже не нашел его, по какой причине - мне неизвестно, хотя я все элементы искал таким образом и всегда их находил.

Очень прошу, помогите, направьте, либо дайте дельный совет - всему буду рад.