Bonjour j'ai un doute , pour demain je dois faire un programme qui fait des conversions Binaire -> hexa et tout

C'est fait mais j'ai un probleme

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var i:integer;
begin
i:= ord(key); //on récupere la valeur Ascii de la touche présse
label1.Caption:= 'En Ascii -> ' + inttostr(i) + ' En Hexadecimal -> ' + decihexa(i);   // On appelle la fonction crée ci dessous soit DeciHexa
edit1.Text := key;
end;
Le probleme c'est que quand je fais Alt + 169 soit ® il m'affiche en Ascci
174 ????
Tout différe ?? c'est byzard ....

Pouvais m'aider ...
merci d'avance...

Je sais pas comment ca se fait.....