[ecfisa]

Hola de nuevo.

Hago una correción del código anterior: (me dió problemas en una prueba posterior)

void AnsiStringToBDA(AnsiString str, TByteDynArray &bda)
{
  bda.set_length(str.Length());
  Move(str.c_str(),  &bda[0],  str.Length()); // <- Cambia esta línea
};

Ejemplo:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString str = "Foros Club Delphi > Otros entornos y lenguajes > C++ Builder";
  TByteDynArray bda;

  Memo1->Clear();
  AnsiStringToBDA(str, bda);
  for(int i=0; i<bda.Length;i++)
    Memo1->Lines->Add((char)bda[i]);
}

Saludos

Edito: No había visto tu último mensaje, proba con el cambio que te comento.