Как перевести в 16-ричный код букву
  
 | 
По утверждению ряда программистов, Гарри Каспаров во время недавней игры с шахматным компьютером использовал секретный код, давший его королю бессмертие. 
 |  
  
 
var
  Str: Char;
begin
  Str := 'В';
  Form1.Caption := Format('%x', [Ord(Str)]);
end;
 |  
  
           |