UTF-16LE to Win1251

function StringOfUtf16(const Bytes: TBytes): string;
var
  i: Integer;
begin
  SetLength(Result, Length(Bytes) div 2);
  for i := 0 to High(Bytes) do
    if (i mod 2 = 0) then
      Result[i shr 1] := Char(Bytes[i] or $FF00); // Исправление для UTF-16LE <<<вылет в отладчик
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
var
  Utf16Bytes: TBytes; // Байты в формате UTF-16LE
  Utf8Bytes: TBytes;
  AnsiResult: AnsiString;
begin
  // Пример данных в UTF-16LE (например, "Hello")
  Utf16Bytes := [$48, $00, $65, $00, $6C, $00, $6C, $00, $6F, $00];
 
  // Сначала преобразуем UTF-16LE в UTF-8
  Utf8Bytes := TEncoding.UTF8.GetBytes(StringOfUtf16(Utf16Bytes));
 
  // Затем преобразуем UTF-8 в ANSI (CP1251)
  AnsiResult := TEncoding.ANSI.GetString(Utf8Bytes);
 
  // Отображаем результат
  ShowMessage(AnsiResult);
end;