Convertendo codigo asc para hexadecimal

Function CharToHex( MyChar: Char ): String;
var escala: string;
res, num: integer;
Begin
num:=ord(Mychar);
escala:='0123456789ABCDEF';
res:=(num div 16);
result:=escala[res+1];
res:=(num-(res*16));
result:=result+escala[res+1];
End;