[dec]

Hola,

Estás tratando de asignar una variable "TStrings" a una "AnsiString", de ahí el problema. Prueba con algo como esto:

Label2->Caption = ListBox1->Items->Strings[ListBox1->ItemIndex];