我用Delphi7搞一个简单的播放器遇到的一些问题，谢谢帮忙！(放分)

Question

1：我想在点播放（SpeedButton）时Image1不断地读取5副BMP文件，形成光盘正在播放的效果，
   利用一个Timer。
2：在ListBox1的双击事件中，播放那个被双击被选中的文件；还有一个也是关于ListBox1的
   就是当我添加多个文件时，它会自动产生一个上下滚动的滚动条，而不会产生左右滚动的滚动
   条，因为路径加上文件名会比较长的，我想利用左右滚动的滚动条看到路径和文件名。

Answer 1

定义一个全局变量i，初始为0。
procedure TForm1.Timer1Timer(Sender:Object);
begin
  case i of
  0: 读图一;
  1: 读图二;
  2: 读图三;
  3: 读图四;
  4: 读图五;
  if Inc(i)=5 then i:=0;
end;

Answer 2

procedure TForm1.Timer1Timer(Sender:Object);
begin
  case i of
  0: 读图一;
  1: 读图二;
  2: 读图三;
  3: 读图四;
  4: 读图五;
  end;  //少加了个end。今天太郁闷了，老是少写东东！
  if Inc(i)=5 then i:=0;
end;

Answer 3

Image的问题搞定了，但ListBox的问题还没有啊，真希望得到帮助！
 Kevin_Lmx(繁华阅尽)   谢谢你！我用你给的代码  if Inc(i)=5 then i:=0; 这行老是出问题
 我将其改为：procedure TForm1.Timer1Timer(Sender:Object);
begin
  case i of
  0: 读图一;
  1: 读图二;
  2: 读图三;
  3: 读图四;
  4: 读图五;
  end;
 Inc(i);  
  if i=5 then i:=0;
end;
就行了。

Answer 4

1.太累了吧？ 还是用avi的控件吧。
2.至于左右滚动，要用api具体哪个忘了。

Answer 5

挂了好长时间，才由回复5变成回复6
点进一看，看到帮UP的也感到有点爽了
读取图片问题我早已搞定了，就是那个ListBox产生左右的滚到条还没搞定
真希望有高手能帮我搞定啊！