Char 与 Byte

var
  c: Char;
  b: Byte;
begin
  c := 'A';
  ShowMessage(c); //A

  b := 65;
  ShowMessage(IntToStr(b)); //65

  c := Chr(66);
  ShowMessage(c); //B

  b := Ord('B');
  ShowMessage(IntToStr(b)); //66
end;