anchor.diff:                      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...
               (*
  
positive.code:   si := si + si8;
  
    FCursorPos := UTF8Length(si);
    FSelStartPos := FCursorPos;
    FSelEndPos := FCursorPos;
    si := si + lineend;
  
    if lcnt = 0 then
  
negative.code: 
      if Consumed then
      begin
        AdjustCursor;
        ResetSelectionVariables;
      end;
    end;
  
  