void __fastcall TForm1::Button1Click(TObject *Sender)
{
unsigned char j[2]={'f','ц'};
for (int i = 1; i <= sizeof(j); i++) {
int ko= static_cast<int>(static_cast<unsigned char>(j[i]));
ListBox1->Items->Add(ko);
}

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
for (int i = 0; i < ListBox1->Items->Count; i++) {
int kot=StrToInt(ListBox1->Items->Strings[i]);
ListBox2->Items->Add(static_cast<char>(static_cast<unsigned char>(kot)));
}
}
//---------------------------------------------------------------------------