anchor.diff:          if FCursorPos > 0 then
           begin
             Dec(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:   ls: string;
    ls2: string;
    hasChanged: boolean;
  begin
    fpgApplication.HideHint;
    Consumed := True;
  