anchor.diff:              FollowFocus;
               RePaint;
             end;
  +          consumed := True;
           end;
   
       keyPageUp:
  
positive.code:   w: integer;
    r: integer;
  begin
    consumed := True;
    case keycode of
      keyRight:
          begin
  
negative.code:             FollowFocus;
              RePaint;
            end;
            consumed := True;
          end;
  
      keyUp:
  