Moverme arriba y abajo en un ComboBox

[noob]

Hola tengo un ComboBox con varios items y me gustaría crear dos botones con dos funcionalidades:

- El primer botón subiría uno en la lista del ComboBox visualizándose este.
- El segundo botón bajaría uno en la lista del ComboBox visualizándose este.

Es decir, si tememos un ComboBox con los siguientes items:

opt1
opt2
opt3 <--
opt4
opt5

Si el ComboBox apunta a "opt3" y pulso el primer botón se debería de visualizar en el ComboBox "opt2" y si en vez de pulsar el primer botón pulso el segundo se debería de visualizar "opt4"

Gracias.

[*Caro*]

Hola noob, solo tendrías que utilizar la propiedad ItemIndex de tu ComboBox.

Código Delphi [-]
procedure TForm1.ButtonSubirClick(Sender: TObject);
begin
 if ComboBox1.ItemIndex > 0 then
  ComboBox1.ItemIndex := ComboBox1.ItemIndex-1;
end;
 
procedure TForm1.ButtonBajarClick(Sender: TObject);
begin
 if ComboBox1.ItemIndex < ComboBox1.Items.Count then
  ComboBox1.ItemIndex := ComboBox1.ItemIndex+1;
end;

Saluditos

[noob]

Muchísimas gracias Caro.