anchor.diff:  
   type
     TfrmKeyboardOptions = class(TfrmWebContainer)
  -    procedure webBeforeNavigate2(ASender: TObject; const pDisp: IDispatch;
  -      var URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
  -      var Cancel: WordBool);
  -    procedure webNewWindow3(ASender: TObject; var ppDisp: IDispatch;
  -      var Cancel: WordBool; dwFlags: Cardinal; const bstrUrlContext,
  -      bstrUrl: WideString);
     private
       kbd: IKeymanKeyboardInstalled;
       FKeyboardName: WideString;
  
positive.code:     for i := 0 to kbd.Options.Count - 1 do
        kbd.Options[i].Value := '';
  
      for i := 1 to params.Count - 1 do
        kbd.Options[params.Names[i]].Value := params.ValueFromIndex[i];
      ModalResult := mrOk;
    end
  
negative.code:     procedure WMUser_ContentRender(var Message: TMessage); message WM_USER_ContentRender;
      procedure DoNavigate;
    protected
      procedure FireCommand(const command: WideString; params: TStringList); override;
  
    public
  