Moverme arriba y abajo en un ComboBox

[*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