anchor.diff:    StartPos, LengthSearch: Integer; Options: TRichSearchTypes): Integer;
   var
     Find: TFindTextEx;
  +  FindW: TFindTextExW;
  +  PChrg: Longint;
     Flags: Integer;
     SearchStrUnicode: PWideChar;   // dpv
   begin
  
positive.code: {$I RX.INC}
  
  {.$DEFINE RICHEDIT_VER_10}
  {$DEFINE RICHEDIT_VER_41}    // DPV. Particulariy: UNICODE
  
  {$R-}
  
  
negative.code:   inherited CreateParams(Params);
    case RichEditVersion of
      1: CreateSubClass(Params, RICHEDIT_CLASS10A);
      4: CreateSubClass(Params, RICHEDIT_CLASS41W);
      else CreateSubClass(Params, RICHEDIT_CLASS);
    end;
    with Params do begin
  