ListBox & ASCII

ListBox1->Items->Add(0x4A); // Выводит 74 (номер (код) клавиши, а должно J)

ListBox1->Items->Add('#74'); // Выводит n-значное число

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ListBox1->Items->LoadFromFile("Output.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
ShellExecute(Handle, L"open", L"Input.txt", 0, 0, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
ShellExecute(Handle, L"open", L"Output.txt", 0, 0, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TStringList *list = new TStringList;
  UnicodeString str, stmp;
  for (int i = 0; i < ListBox1->Items->Count; i++)
  {
    str = ListBox1->Items->Strings[i];
    int i,j;
    wchar_t chr;
    for (i = 1; i <= str.Length(); i++)
    {
      j = (int)str[i]; // узнаем числовое значение символа
      j += 1; // меняем это значение
      chr = (wchar_t)j; // узнаем, какой это символ получился
      stmp += chr; // stmp = stmp+chr;
    }
  }
  list->Add(stmp); // добавляем
  list->SaveToFile("Input.txt");
  delete list;
  list = NULL;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
ListBox1->Items->LoadFromFile("Input.txt");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button6Click(TObject *Sender)
{
TStringList *list = new TStringList;
  UnicodeString str, stmp;
  for (int i = 0; i < ListBox1->Items->Count; i++)
  {
    str = ListBox1->Items->Strings[i];
    int i,j;
    wchar_t chr;
    for (i = 1; i <= str.Length(); i++)
    {
      j = (int)str[i]; // узнаем числовое значение символа
      j -= 1; // меняем это значение
      chr = (wchar_t)j; // узнаем, какой это символ получился
      stmp += chr; // stmp = stmp+chr;
    }
  }
  list->Add(stmp); // добавляем
  list->SaveToFile("Output.txt");
  delete list;
  list = NULL;
}
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ListBox1->Items->LoadFromFile("Output.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  ShellExecute(Handle, L"open", L"Input.txt", 0, 0, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
  ShellExecute(Handle, L"open", L"Output.txt", 0, 0, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  encode();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
  ListBox1->Items->LoadFromFile("Input.txt");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button6Click(TObject *Sender)
{
  decode();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::encode(void)
{
  TStringList *list = new TStringList;
  UnicodeString str, stmp;
  for (int i = 0; i < ListBox1->Items->Count; i++)
  {
        str = ListBox1->Items->Strings[i];
        int i,j;
        wchar_t chr;
        for (i = 1; i <= str.Length(); i++)
        {
          j = (int)str[i]; // узнаем числовое значение символа
          j += 1; // меняем это значение
          chr = (wchar_t)j; // узнаем, какой это символ получился
          stmp += chr; // stmp = stmp+chr;
        }
  }
  list->Add(stmp); // добавляем
  list->SaveToFile("Input.txt");
  delete list;
  list = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::decode(void)
{
  TStringList *list = new TStringList;
  UnicodeString str, stmp;
  for (int i = 0; i < ListBox1->Items->Count; i++)
  {
        str = ListBox1->Items->Strings[i];
        int i,j;
        wchar_t chr;
        for (i = 1; i <= str.Length(); i++)
        {
          j = (int)str[i]; // узнаем числовое значение символа
          j -= 1; // меняем это значение
          chr = (wchar_t)j; // узнаем, какой это символ получился
          stmp += chr; // stmp = stmp+chr;
        }
  }
  list->Add(stmp); // добавляем
  list->SaveToFile("Output.txt");
  delete list;
  list = NULL;
}
//---------------------------------------------------------------------------
// в файле .H
private:    // user и т.д.
  void __fastcall encode(void);
  void __fastcall decode(void);