ich möchte den string aus einer listbox in einem label als laufschrift anzeigen

mein code

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  AppText = " *** "+ListBox2->Items->Strings[ListBox2->ItemIndex];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  AnsiString first = AppText.SubString(1,1);
  AppText.Delete(1,1);
  AppText = AppText + first;
  Label3->Caption = AppText;
}
//---------------------------------------------------------------------------

allerdings wird ja der string nicht aktualisiert.
nun hab ich versucht die zuweisung von apptext in den timer zu schreiben. allerdings läuft die schrift dann nicht mehr.

hat jemand eine idee??