Навигация по элементах в ListBox

[RIO]

Здравствуйте ! Подскажите пожалуйста как в ListBox сделать навигацию вверх или вниз, использовал данный код, не помогло :

procedure TBox.ListBoxKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
var
  I: Integer;
begin
  if Key = VK_UP then
  begin
     I := ListBox.SelectedItemIndex;
     Inc(I);
     ListBox.SelectedItemIndex := I;
  end;
  if Key = VK_DOWN then
  begin
     I := ListBox.SelectedItemIndex;
     Dec(I);
     ListBox.SelectedItemIndex := I;
  end;
end;

[RIO]

Вот обновленный код, ошибку нашел почему навигация не работала, но теперь дело в следующем, все равно навигация отказывается работать на клавишах VK_UP и VK_DOWN, если вместо них ставлю например VK_RETURN, то все работает как нужно . . . Хммм, странное оно Делфи В чем прикол, коллеги ?

  if Key = VK_UP then
  begin
     I := ListBox.Items.SelectedItem.Index;
     Dec(I);
     ListBox.SelectedItemIndex := I;
  end;
  if Key = VK_DOWN then
  begin
     I := ListBox.Items.SelectedItem.Index;
     Inc(I);
     ListBox.SelectedItemIndex := I;
  end;

[mutabor]

Объясните лучше тайный смысл этих действий. А чем стандартная не устраивает?

з.ы.
Элемент выделяется ListBox.ItemIndex := I;
а не ListBox.SelectedItemIndex := I;

[RIO]

Сообщение от mutabor

Элемент выделяется ListBox.ItemIndex := I;
а не ListBox.SelectedItemIndex := I;

Возможно Но я использую компонент TAdvSmoothListox, а там мой код работает

Стандартной нет в этом компоненте, в этом все и проблема поэтому хочу это внедрить туда, ну вот пока не выходит Хотя ентером например все как надо делается, а вот кнопки вверх и вниз отказываются работать, почему ?

[mutabor]

. . Хммм, странное оно Делфи

Не Дельфи странная, а компонент ваш.

А вообще коды приходят 38 и 40 в это событие? Поставьте для проверки сначала просто ShowMessage(IntToStr(key)); или в отладчике проследите за переменными.