Здесь ИМХО не как))) Используй RadioGroup
В его свойстве Items добавь три строки (можешь как хочешь назвать)
Для каждого ComboBox в свойство Tag поставь цыфрый 0, 1 и 2 для 1, 2 и 3 бокса соответсвенно
Пиши функцию
Код:
procedure TForm1.ComboBoxEnter(Sender: TObject);
begin
RadioGroup1.ItemIndex := (Sender as TComboBox).Tag;
end;
(незабудь прописать в заголовке и для каждого бокса в соответствующем свойстве)