anchor.diff:  var
     Line: longint;
     Offset: longint;
  -  Link: string;
  +  Link: TfpgString;
     Position: TTextPosition;
     Shift: boolean;
   begin
  
positive.code:     if Assigned( FOnClickLink ) then
        FOnClickLink( Self, FClickedLink );
    FClickedLink := ''; // reset link
  end;
  
  Destructor TRichTextView.Destroy;
  
negative.code: 
    TextHeight := GetTextAreaHeight;
  
    // Should we take into account Border Styles?
    XToFind := XToFind - FRichTextSettings.Margins.Left;
    YToFind := YToFind - FRichTextSettings.Margins.Top;
  
    if YToFind < 3 then
    begin
  