Здравствуйте, KolanT, Вы писали:

А как вот это перевести
case FirstChar of
'0'..'9' :Result:=ltNumber;
'a'..'z','_' :Result:=ltVariable;
'+','-','/','*','^':Result:=ltBinOp;
'~' :Result:=ltUnOp;
'(' :Result:=ltOpenBrick;
')' :Result:=ltCloseBrick;
...
как вот '0'..'9' описать