случай вхождения элемента во множество, внутри оператора выбора case Опции

[marwell]

доброго времени суток
сначала хотел создать тему в разделе теоретических вопросов о паскале, но раз уж пишу на Delphi, то решил что правильнее сюда написать. Так вот, появился вопрос, а как можно (если можно конечно) описать случай вхождения элемента во множество внутри оператора выбора case? например, есть множество

number: set of char;

, и по ходу программы надо внутри оператора выбора case предусмотреть случай вхождения элемента массива s типа string в это множество:

...
number:=['0'..'9', 'x'];
...
while i <= Length(s) do begin
case s[i] of
...
in number: begin
end_s:=end_s+s[i];
inc(i);
end;
...

такой способ конечно же не работает. использовать if ... then ... else в данном случае тоже не особо удобно. Может кто-нибудь даст совет?