anchor.diff:              FollowFocus;
               RePaint;
             end;
  +          consumed := True;
           end;
   
       keyPageUp:
  
positive.code:             FollowFocus;
              RePaint;
            end;
          end;
  
      keyPageDown:
  
negative.code:             FollowFocus;
              RePaint;
            end;
            consumed := True;
          end;
  
      keyDown:
  