Begin
C:='A'; // в переменную С заносим символ А
B:=Ord(C); // получаем значение символа А равное 65
B:=100; // В переменную В заносим 100
C:=Chr(B); // получаем символ d
Уроки по Delphi
C:='A'; // в переменную С заносим символ А
B:=Ord(C); // получаем значение символа А равное 65
B:=100; // В переменную В заносим 100
C:=Chr(B); // получаем символ d