anchor.diff:  
     TextHeight := GetTextAreaHeight;
   
  -//  YToFind := Height - YToFind;
  -
  -  //if FBorderStyle = bsSingle then
  -  //begin
  -  //  dec( YToFind, 2 );
  -  //  dec( XToFind, 2 );
  -  //end;
  +  // Should we take into account Border Styles?
  +  XToFind := XToFind - FRichTextSettings.Margins.Left;
  +  YToFind := YToFind - FRichTextSettings.Margins.Top;
   
     if YToFind < 3 then
     begin
  
positive.code: var
    Line: longint;
    Offset: longint;
    Link: string;
    Position: TTextPosition;
    Shift: boolean;
  begin
  
negative.code:     procedure HandleMouseScroll(x, y: integer; shiftstate: TShiftState; delta: smallint); override;
      procedure HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
      procedure HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
      procedure HandleMouseMove(x, y: integer; btnstate: word; shiftstate: TShiftState); override;
  
      //procedure ScanEvent( Var KeyCode: TKeyCode;
      //                     RepeatCount: Byte ); override;
  