BCB的な解決の仕方だとこんな感じな希ガス

class Test{
　TStringList *word;
public:
　Test();
　~Test() { delete word; }
　__property TStringList* Words = { read=word };
};

Test::Test() {
　word = new TStringList();
　word->Add("その1");
　word->Add("その2");
　word->Add("その3");
}

main() {
　Test test;
　std::cout << test.Words[0] << std::endl;
}