关于FILELISTBOX的问题

Question

我的MP3PLAY有个循环自动播放的功能~用FILELISTBOX  -  FLB
用的是A;;;
   FLB.ITEMINDEX=FLB.ITEMINDEX+1
...
   IF FLB.ITEMINDEX=COUNT-1 THEN FLB.ITEMINDEX=1郁闷......最后一首不放了

Answer 1

var
  Index:Integer;A;;;
   Index=FLB.ITEMINDEX+1
...
   IF Index=COUNT THEN 
     FLB.ITEMINDEX=0
    else
     FLB.ITEMINDEX=index;
     

Answer 2

顺便问下：1：使用MCI_?  MCI_?_?做MP3播放器怎么样（MEDIAPLAY很耗系统资源）
             这些命令在XP下可用吗！     
          2：一个图片，鼠标移上去变另外一幅，鼠标移出还原
             IMAGE  IMAGENORMAL IMAGEHOVER
            在VB里很好做
             在DELPHI里怎么搞，偶刚学DELPHI