В операторе выбора Select Case определено более одного блока Case для проверки одного и того же константного значения.
Удалить дублирующиеся блоки Case, либо изменить в дублирующем блоке проверяемое значение.
Sub UserProc;
Var
i: Integer;
Begin
Select Case i
Case 1 To 9: //Действия
Case 3: //Действия
End Select;
End Sub UserProc;
При компиляции указанного кода на строке «Case 3:» будет сгенерирована ошибка «Повторное определение константы». Данная ошибка возникает, потому что значение «3» попадает в диапазон [1:9], проверяемый в другом блоке «Case». Для разрешения ошибки необходимо удалить блок «Case 3:», либо изменить проверяемое в нем значение.
См. также: