Как создать и проинициализировать динамический массив Unicode строк?

    String s1 = "фывапро";
    String s2 = "йцукен";
    TStringDynArray list[2];
    list[0] = s1;
    list[1] = s2;
    WriteAllLines(ExtractFilePath(ParamStr(0)) + "save.txt", list);

    String s[2]
  TStringList *ls = new TStringList; //можно через "умный" указатель, но я по привычке
 
    s[0] = "фывапро";
    s[1] = "йцукен";
 
  ls->Clear()
 
     for(int i=0; i<2; i++) ls->Items->Add(s[i]);
 
   ls->SaveToFile("somewere to place");
 
 delete ls;

    String s1 = L"фывапро";
    String s2 = L"йцукен";
    TStringDynArray list;
    list.set_length(2);
    list[0] = s1;
    list[1] = s2;
    TFile::WriteAllLines(ExtractFilePath(ParamStr(0)) + "save.txt", list);

    String s1 = L"фывапро";
    String s2 = L"йцукен";
    TStringDynArray list;
    list.set_length(2);
    list[0] = s1;
    list[1] = s2;
    TFile::WriteAllLines(ExtractFilePath(ParamStr(0)) + "save.txt", list, TEncoding::Unicode);

TFile::WriteAllLines(ExtractFilePath(ParamStr(0)) + "save.txt", list, TEncoding::[B]КОДИРОВКА[/B]);