Valor numérico de un carácter unicode
 

Hola a todos, alguien me podría decir como puedo saber el valor numérico de un carácter unicode que tengo en una cadena declarada como AnsiString?

Y muchas gracias por la atención.

Buenos aqui estoy otra ves, no se si me expliqué bien lo que necesito es algo como esto

Código Delphi [-]
var 
 i : byte
 s: string;
begin
 s := 'Avion';
 i := ord(s[1]);  // i := 65
end

pero en mi caso s seria un AnsiString

en SQL existe una funcion que lo hace

Código SQL [-]
declare @a nvarchar(30), @i integer
set @a = '??????'
set @i = unicode(@a)

En @a tendría caracteres en chino por ejemplo y necesito saber el valor numerico de este.
Muchas gracias