anchor.diff:  procedure TfmCommands.FormKeyDown(Sender: TObject; var Key: Word;
     Shift: TShiftState);
   begin
  -  if key=vk_down then
  +  if key=VK_DOWN then
     begin
       if list.ItemIndex=list.ItemCount-1 then
         list.ItemIndex:= 0
  
positive.code:     key:= 0;
      exit
    end;
    if (key=VK_END) and (Shift=[ssCtrl]) then
    begin
      list.ItemIndex:= list.ItemCount-1;
  
negative.code:     exit
    end;
  
    if key=VK_UP then
    begin
      if list.ItemIndex=0 then
        list.ItemIndex:= list.ItemCount-1
  