Diashowbildwechsel

[turboPASCAL]

Code:

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

  if (ListBox1->ItemIndex < ListBox1->Items.Count - 1) {
    ListBox1->ItemIndex := ListBox1->ItemIndex + 1 } //  ListBox1->ItemIndex++
  else
  {
    ListBox1.ItemIndex := 0;

    // oder Messagebox mit Listenende erreicht bla...
  }

  Image1->Picture->LoadFromFile( ListBox1->Items[ ListBox1->ItemIndex ] );


}

So ?