TImage+Timer

[guffer]

Есть список картинок - ListBox1, в нём 10 Items'ов. Надо сделать так, чтобы каринка в TImage менялась каждую секунду на следующую из списка ListBox1. Как этого добиться?

[psycho-coder]

в функции OnTimer
i - глобальная переменная. И не забудь ее обнулить при запуске программы

  Image1.Picture.LoadFromFile(ListBox1.Items.Strings[i]);
  Inc(i);
  if i=ListBox1.Count - 1 then i := 0;

[Terran]

Var
I: Integer;
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
If I < ListBox1.Items.Count Then
Begin
Image1.Picture.LoadFromFile(ListBox1.Items.Strings[I]);
I:=I+1;
End;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
I:=0;
End;

[guffer]

Всё работает.Спасиб усем!