//==============================================================================
procedure TMainForm.ButtonClick(Sender: TObject);
var
i: Integer;
const
Bytes: array[0..9] of byte = ($82, $B1, $82, $F1, $82, $C9, $82, $BF, $82, $CD);
begin
     Memo.Lines.Add('"Добрый день" по японски: "');
     for i := 0 to 9 do
          begin
               Memo.Lines[Memo.Lines.Count-1]:=
                    Memo.Lines[Memo.Lines.Count-1] + AnsiChar(Bytes[i]);
          end;
     Memo.Lines[Memo.Lines.Count-1]:=
          Memo.Lines[Memo.Lines.Count-1] + '"';
end;
//==============================================================================

Memo.Lines.LoadFromFile('1.txt', TEncoding.UTF8);

Bytes: array[0..24] of Byte = ($4C,$41,$4E,$90,$DA,$91,$B1,$8B,$40,$8A,$ED,$83,
     $6F,$81,$5B,$83,$57,$83,$87,$83,$93,$8F,$EE,$95,$F1);

Bytes: array[0..25] of Byte = ($4C,$41,$4E,$0A,$90,$DA,$91,$B1,$8B,$40,$8A,$ED,$83,
     $6F,$81,$5B,$83,$57,$83,$87,$83,$93,$8F,$EE,$95,$F1);

var
JPN: RawByteString;
ISimvol, ISimvol_2 : Byte;

//==== МультиСимвол =============================
ISimvol := Byte(AdrByte^); // Читаем 1-й байт ДвухБайтового символа
// Объединяем текущ. и Cлед. ячейку, потому что иероглифы шире
MergeCells.AddRectXY(ColX+16, RowY, ColX+16+1, RowY);

ISimvol_2 := Byte((AdrByte+1)^); // Читаем 2-й байт ДвухБайтового символа
JPN := AnsiChar(ISimvol) + AnsiChar(ISimvol_2); // Соединяем Два байта
SetCodePage(JPN, 932,False); // указываем кодировку В ОТЛАДЧИКЕ ВИЖУ ИЕРОГЛИФ!

// Выводим 2-х байтовый иероглиф в поле Символ
Cells[ColX+16, RowY] := string(JPN);

for j := 0 to 5 do
                              begin
                                   AddressRichEdit.Lines.Add(IntToHex(Integer(AddTab) + j*16, 8));
                                   SStroka := '';
                                   JPN := '';
                                   for i := 0 to 15 do  // ПОМЕНЯТЬ ИМЯ ПЕРЕМЕННОЙ!!!!!!
                                        begin
                                             //ISimvol := Byte(PByte(Integer(AddTab) + i + j*16)^);
                                             //AdrByte := PByte(Integer(AddTab) + Integer(AddToOffset) + i + j*16);
                                             AdrByte := PByte(AddTab + Integer(AddToOffset) + i + j*16);
                                             //if AdrByte=P then PStart := i;
                                             //Long1 := 16 - i
                                             ISimvol := Byte(AdrByte^);
                                             SStroka := SStroka + IntToHex(ISimvol, 2);
                                             if i < 15 then
                                                  SStroka := SStroka + ' ';
                                             if (ISimvol in [0..31, 127]) then ISimvol := 32; // SPASE
                                             JPN := JPN + AnsiChar(ISimvol);
                                        end;
                                   HexRichEdit.Lines.Add(SStroka);
                                   SetCodePage(JPN, 932,False); // указываем кодировку исходных данных
                                   CharRichEdit.Lines.Add(string(JPN)); // тут дельфи неявно перекодирует JPN в юникод
                              end;

JPN := AnsiChar(ISimvol) + AnsiChar(ISimvol_2); // Соединяем Два байта

SetCodePage(JPN, 932,False); // указываем кодировку