Recuperar o número ascii de um caractér !

eh soh utilizar a funcao ord
ex:
var texto : string;
begin
texto := ´Rafael´;
ShowMessage(StrToInt(Ord(texto[1]))); //Exibe o ascii do primeiro caracter da stirng
end;

Muito obrigado rafael !

Eu estava quase lá, o meu erro foi na hora de utilizar a função ORD,
pois estava colocando a string inteira.

var texto : string;
begin
texto := ´Luger´;
ShowMessage(StrToInt(Ord(texto))); //aqui estava o erro
end;

Muito obrigado, precisando estou sempre no messenger do yahoo: endereço luger_te.

Um abraço.