[darkghostnt]

Код:

//Выбрали Смену выбрали дату
procedure TCT.DTPChange(Sender: TObject);
  var
    myDate : TDateTime;
    mY, mM, mD, D : word;
  begin
    //Оперделили чётность даты
    myDate :=DTP.DateTime;
    DecodeDate (MyDate, mY, mM, mD);
    IF odd(mD) THEN D := 0 ELSE D :=1;

    //Проверяем работу врача
	  IF D=0 THEN
		  IF CB.ItemIndex = 0 THEN     //Если Дата_Чётная и Смена первая,
			  Lab1.Caption := 'Утро'     //То работа утром
		  ELSE
			  Lab1.Caption := 'Вечер'    //Иначе вечером
	  ELSE
		  IF CB.ItemIndex = 0 THEN     //Если Дата_Нечётная и Смена первая,
			  Lab1.Caption := 'Вечер'    //То работа Вечером
		  ELSE
			  Lab1.Caption := 'Утро';    //Иначе утром
  end;

Как сделать условия я разобрался.
Главный вопрос как добавить записи c "индексом один/два" из таблицы SQL Server в ComboBox?