А лучше вместо массива использовать set of TMyList = [mlOne, mlFive], если значения не превосходят 255. Хотя диапазон и не большой, но и перечисления со значениями больше чем 255 встречаются редко. Но если значения будут больше этого, тогда массив.
Код:
type TMyList = (mlOne = 1, mlFive = 5);
const mlSet: set of TMyList = [mlOne, mlFive];
var iTmp: Integer;
begin
for iTmp := 0 to 9 do
if TMyList(iTmp) in mlSet
then WriteLn('True')
else WriteLn('False');
ReadLn;
end;