--------true---------------
case <value> of
constant:expression;
end;
-----------false-------------
case <value> of
expression:expression;
end;
------------fix---------------
oO ??????????????
для меня открытие, что case не воспринимает выражения, действительно нельзя вместо константы подставить рандом числа к примеру?должен быть ведь обход...
собственно говоря вот от источник проблеммы

ПС:вопрос актуален, но решен циклом, бриками, цитромоном