Запрет правой кнопки мыши в Cromium

function MouseProc(nCode: Integer; WP: wParam; LP: lParam): Integer; stdcall;
var
  MHS: TMouseHookStruct;
  WC: TWinControl;
begin
  Result := CallNextHookEx(HMouseHook, nCode, WP, LP);
  if nCode = HC_ACTION then
  begin
    MHS := PMOUSEHOOKSTRUCT(LP)^;
    if (WP = WM_RBUTTONDOWN) or (WP = WM_RBUTTONUP) then
    begin
      // Определяем контрол под курсором
      WC := FindVCLWindow(MHS.pt);
      // Если это TWebBrowser и у него есть PopupMenu, то вызываем PopupMenu
      if WC is TWebBrowser then
      begin
        Result := 1;
        if (TWebBrowser(WC).PopupMenu <> nil) and (WP = WM_RBUTTONUP) then
        begin
          if Pop then
            Exit;
          Pop := True;
          TWebBrowser(WC).PopupMenu.Popup(MHS.pt.x, MHS.pt.y);
          Pop := False;
        end;
      end;
    end;
  end;
end;

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  cancel:=false;
  if (pos('cyberforum',url)) or (pos('yandex',url))>0 then cancel:=true;
end;

procedure TForm1.Chromium1BeforeMenu(Sender: TObject;
  const browser: ICefBrowser; const menuInfo: PCefHandlerMenuInfo;
  out Result: Boolean);
begin
  Result := True; // Magic
  // Тут можно показать своё TPopup-меню, при желании
end;

procedure TForm1.Chromium1BeforeBrowse(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame;
  const request: ICefRequest; navType: TCefHandlerNavtype; isRedirect: Boolean;
  out Result: Boolean);
begin
  if request.Url = 'https://www.cyberforum.ru/delphi-networks/' then // Любая проверка на твой вкус
    Result := True; // Опять Magic
end;