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