anchor.diff:    si := si + si8;
   
     FCursorPos := UTF8Length(si);
  -  FSelStartPos := FCursorPos;
  -  FSelEndPos := FCursorPos;
     si := si + lineend;
   
     if lcnt = 0 then
  
positive.code:                     while (FCursorPos > 0) and pgfIsAlphaNum(copy(CurrentLine,FCursorPos,1))
                        do Dec(FCursorPos);
              *);
  
          end;// left
  
        keyRight:
          if FCursorPos < UTF8Length(CurrentLine) then
          begin
            Inc(FCursorPos);
  
            if (ssCtrl in shiftstate) then
              // word search...
              (*
  
negative.code: 
      if Consumed then
      begin
        AdjustCursor;
        ResetSelectionVariables;
      end;
    end;
  
  