anchor.diff:    w: integer;
     r: integer;
   begin
  -  consumed := True;
  +  if consumed then
  +    exit;
  +
     case keycode of
       keyRight:
           begin
  
positive.code:             FollowFocus;
              RePaint;
            end;
          end;
  
    else
      consumed := False;
    end;
    
    if consumed then
      CheckFocusChange;
  
negative.code:             FollowFocus;
              RePaint;
            end;
            consumed := True;
          end;
  
      keyPageUp:
  