[Karsh]

Если несколько, то можно так:

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  i: Integer;
begin
  //отключаем все кнопки (допустим, что у нас их 5, как и 5 пунктов меню)
  for i:= 1 to 5 do
    TButton(FindComponent('Button' + IntToStr(i))).Visible:= False;
  //включаем нужную
  TButton(FindComponent('Button' + IntToStr(ComboBox1.ItemIndex+1))).Visible:= True;
end;