var
  myChar  : WideChar;

begin
  myChar := 'G';                    // Назначение из символьной константы
  ShowMessage('Символ G = '+myChar);

  myChar := #65;                    // Назначение из целочисленной константы
  ShowMessage('#65 = '+myChar);

  myChar := ^I;                     // Назначите из символа управления - табуляции
  ShowMessage('Символ '+myChar+' управления');

  myChar := Chr(66);                // Использование Chr, чтобы преобразовать число
  ShowMessage('Chr(66) = '+myChar);

  myChar := WideChar(67);           // Использование WideChar как стандартное приведение
  ShowMessage('WideChar(67) = '+myChar);
end;