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