anchor.diff:    StartPos, LengthSearch: Integer; Options: TRichSearchTypes): Integer;
   var
     Find: TFindTextEx;
  +  FindW: TFindTextExW;
  +  PChrg: Longint;
     Flags: Integer;
     SearchStrUnicode: PWideChar;   // dpv
   begin
  
positive.code:   RICHEDIT_CLASS       = RICHEDIT_CLASSA;
  {$ENDIF}
  
  {$IFDEF RICHEDIT_VER_41}
    RichEdit41ModuleName = 'MSFTEDIT.DLL';    // RTF v.4.1
    RICHEDIT_CLASS41W    = 'RichEdit50W';
    RICHEDIT_CLASS       = RICHEDIT_CLASS41W;
    EM_FINDTEXTW         = WM_USER + 123;
    EM_FINDTEXTEXW       = WM_USER + 124;
  {$ENDIF}
  
  
  {$IFNDEF RX_D3}
  
negative.code: {$I RX.INC}
  
  {.$DEFINE RICHEDIT_VER_10}
  
  {$R-}
  
  