TStrings 와 TStringList !

memi 님이 쓰신 글 :
: 보통 파일리스트 구하는 함수등.. 을 만들때 주로
:
: void __fastcall TForm1::slfunc(TStringList *s)
: {
:     s->Add("abcd");
:
: }
: //---------------------------------------------------------------------------
: void __fastcall TForm2::Button1Click(TObject *Sender)
: {
: std::tr1::shared_ptr<TStringList> sl(new TStringList);
:
: slfunc(sl.Get()) <- sl에 담고...
: ListBox1->Items->Assign(sl.Get()); <-- ListBox에 담고..
: }
: //---------------------------------------------------------------------------
:
: 이런식으로 처리하는데..
:
: 아래처럼 직접 ListBox1->Items를 인자로 넘길 수는 없을까요?
:
: void __fastcall TForm1::slfunc(TStrings *s)
: {
:     s->Add("abcd");
: }
: //---------------------------------------------------------------------------
: void __fastcall TForm2::Button1Click(TObject *Sender)
: {
:     slfunc(ListBox1->Items); //TStrings를 넘기고 싶다!! 하지만 에러(Can not convert TStrings * -> TStringList....어쩌구저쩌구)
: }
: //---------------------------------------------------------------------------
:
: 현재는 TMemo TListBox 등등 오버로드해서 쓰는데 코드가 지저분해져서요..
: 무식해서 ㅡㅡ 왜 안되는지 조언좀...부탁드립니다.