PostMessage Delphi Firefox

Я успешно отправляю это сообщение в блокнот, но совсем нет реакции в браузере. Я использовал Spyxx.exe чтобы отлавливать message. Когда я отправлял сообщение в блокнот, я вижу в Spyxx.exe (вкладка message), что сообщения есть, когда отправляю в браузер - совсем пусто, как будто я не посылаю в браузер ничего. Хочу узнать в чём дело.

unit Unit2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
Vcl.StdCtrls;
             
 type
TForm2 = class(TForm)
Button1: TButton;
  end;
             
var
Form2: TForm2;
             
implementation
             
{$R *.dfm}
    procedure TF1.Button1Click(Sender: TObject);
    var
      str: AnsiChar;
      str2: string;
      i: Integer;
    begin
        hw := 2098120;
        str2 := 'alert("kuku")';
        for i := 0 to str2.length do
          begin
          str := AnsiChar(str2[i]);
          PostMessage(hw, WM_CHAR, Word(str), 0);
        end;
     end;

Ответы (0 шт):