anchor.diff:      exit
     end;
   
  -  if key=vk_up then
  +  if key=VK_UP then
     begin
       if list.ItemIndex=0 then
         list.ItemIndex:= list.ItemCount-1
  
positive.code:     key:= 0;
      exit
    end;
    if (key=VK_END) and (Shift=[ssCtrl]) then
    begin
      list.ItemIndex:= list.ItemCount-1;
  
negative.code:     key:= 0;
      exit
    end;
  
    if key=VK_PRIOR then
    begin
      list.ItemIndex:= Max(0, list.ItemIndex-list.VisibleItems);
  