ORD

ORD (caracter:Clear):byte;

Exemplo

Carácter :=‘A’;

Codigo:=ORD(carácter);

Writeln(código);