Как вызвать событие onkeypress на html-странице (Delphi)

Question

Как вызвать событие onkeypress элемента управления textarea на html-странице с помощью WebBrowser?

Answer 1

Это способ с поздним связыванием:

procedure TBrowserPageIE.Test;
var
  doc : OleVariant;
  el  : OleVariant;
  v   : OleVariant;
begin
  if FBrowser.Document <> nil then begin
    doc := FBrowser.Document;
    el := doc.getElementById('myTextArea');
    el.FireEvent('onkeypress', v);
  end;
end;

Пожалуйста, добавьте код для обработки nil / исключений.