-----------------------------------------------------------------
procedure Error; virtual;
Выводит на экран блок сообщений, указывающий, что введенное значение не попадает в заданный диапазон.