[angvelem]

Обязано выводить, добавь контрольную строчку:

Код:

  case y of
    0..5   : Label10.Caption := format('Новичок %i!', [y]);
    6..10  : Label10.Caption := format('Мастер %i!', [y]);
    11..15 : Label10.Caption := format('Профессионал %i!', [y]);
  else
    Label10.Caption := format('%i', [y]);
  end;