Как записать в ListBox элемент своего класса

Добрый день,мне надо добавить в ListBox элемент своего класса SLovo,
class Slovo{
public:
char a[Dsl];
int dlina;
void create_slovo_V_ruchn();
void create_slovo_is_faila(ifstream&f);
void show_slovo(int d);
int vernut_dlina(Slovo x);
};


Я пишу так


void __fastcall TForm1::Button1Click(TObject *Sender)
{

ifstream f1("inn1.txt");
s1.create_slovar(f1,s1);
List* temp=s1.vernut_top();

int dl=s1.DlinaSlovara;
AnsiString ansi_string;

while(temp!=NULL)
{ for(int i=0;i<dl;i++)
{
int dlsl=temp->data.vernut_dlina(temp->data);
// string stroka[15];
for(int j=0;j<dlsl;j++)
{
ansi_string[j]=temp->data.a[j];

ListBox1->Items->Strings=ansi_string;
}
temp=temp->prev;
}
}
}

программа запускается,но вылетает на середине ,пожалуйста, помогите