보통 파일리스트 구하는 함수등.. 을 만들때 주로

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 등등 오버로드해서 쓰는데 코드가 지저분해져서요..
무식해서 ㅡㅡ 왜 안되는지 조언좀...부탁드립니다.