[usuario87]

hola, disculpen ya lo solucione de esta forma:

Código Delphi [-]

var
  Cadena: string;
  Cod: BYTE;
begin
  SetLength(Cadena,1);
  //cadena:='a';
  Cod:=Ord(Cadena[1]);
  Form1.Caption:=IntToStr(Cod);