создать массив знаков [+-*/!@#$...]

[Юрич]

в общем такая проблема: поступает входной символ, мне надо определить какой он через кейс. пытаюсь задать массив символов, и в случае, если символ подходит определенному массиву - следовать определенному этому случаю действию. кароче код:

procedure TForm1.scaner(sim: Char);
begin
  case sim of
  in alph.ident:     sost:=i;
  in alph.literal:    sost:=d;
  in alph.razdelit:  sost:=r;
  ' ':                   sost:=s;
  end;

где 
alph.ident:=['a'..'z','A'..'Z'];
alph.literal:=['0'..'9'];
temp:=#39;
alph.razdelit:=['+','-','*','/','=',',','.',':',';','<','>','[',']','(',')','{','}','"','@','$','#',temp];

при том 
type
  Letters = set of Char;
  sostojan=(s,i,d,r);
  alphavit=record
  ident:Letters;
  literal:Letters;
  razdelit:Letters;
end;

весь этот геморой возник в ходе моих попыток сделать проще )))) смысл - буквы в одну сторону, числа в другу, знаки в третью, но как записать апостроф? ведь символ в строковую переменную и так в апострофах записывается, не a(string):='''; писать. ну ладно апостроф через код записал, но делфя теперь ругается на звездочку в заполнении массива...

да, знаю, индийско, быдлокод и тд и тп... прост сам уже запутался, где то кейс на стринг ругался, массив чаров сделал, то вот с апострофами кавырялся... в общем научите дурака - посоветуйте, пожалуйста, как всю эту свистопляску обойти и написать грамотно)).



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Аватар]

type TSostojan=(stNone,stS,stI,stD,stR);
var sost: TSostojan;

  case sim of
  'a'..'z','A'..'Z': sost:=stI;
  '0'..'9': sost:=stD;
  '+','-','*','/','=',',','.',':',';','<','>','[',']','(',')','{','}','"','@','$','#','''': sost:=stR;
  ' ': sost:=stS;
  else sost:=stNone;   //на случай если символ не входит в выше перечисленное
  end;