var
  Str: Char;
begin
  Str := 'В';
  Form1.Caption := Format('%x', [Ord(Str)]);
end;