[dec]

Hola,

Prueba con la función "Ord". Ejemplo, código ASCII del caracter "A":

Código Delphi [-]
  Caption := IntToStr(Ord('A'));