Delphi中用多媒體庫Bass.dll播放mp3 [11] - 使用回調函數設置反復(2)

窗體文件:

object Form1: TForm1
　 Left = 222
　 Top = 114
　 Caption = 'Form1'
　 ClIEntHeight = 177
　 ClIEntWidth = 476
　 Color = clBtnFace
　 Font.Charset = DEFAULT_CHARSET
　 Font.Color = clWindowText
　 Font.Height = -11
　 Font.Name = 'Tahoma'
　 Font.Style = []
　 OldCreateOrder = False
　 Position = poDesigned
　 OnCreate = FormCreate
　 OnDestroy = FormDestroy
　 PixelsPerInch = 96
　 TextHeight = 13
　 object PaintBox1: TPaintBox
　　 Left = 16
　　 Top = 0
　　 Width = 105
　　 Height = 105
　　 OnMouseDown = PaintBox1MouseDown
　　 OnPaint = PaintBox1Paint
　 end
　 object Shape1: TShape
　　 Left = 170
　　 Top = 24
　　 Width = 65
　　 Height = 65
　 end
　 object Shape2: TShape
　　 Left = 241
　　 Top = 24
　　 Width = 65
　　 Height = 65
　 end
　 object Shape3: TShape
　　 Left = 312
　　 Top = 24
　　 Width = 65
　　 Height = 65
　 end
　 object Label1: TLabel
　　 Left = 11
　　 Top = 156
　　 Width = 31
　　 Height = 13
　　 Caption = 'Label1'
　 end
　 object Button1: TButton
　　 Left = 8
　　 Top = 120
　　 Width = 75
　　 Height = 25
　　 Caption = #25171#24320
　　 TabOrder = 0
　　 OnClick = Button1Click
　 end
　 object Button2: TButton
　　 Left = 89
　　 Top = 120
　　 Width = 75
　　 Height = 25
　　 Caption = #25773#25918
　　 TabOrder = 1
　　 OnClick = Button2Click
　 end
　 object Button3: TButton
　　 Left = 170
　　 Top = 120
　　 Width = 75
　　 Height = 25
　　 Caption = #26242#20572
　　 TabOrder = 2
　　 OnClick = Button3Click
　 end
　 object Button4: TButton
　　 Left = 251
　　 Top = 120
　　 Width = 75
　　 Height = 25
　　 Caption = #20174#22836#25773#25918
　　 TabOrder = 3
　　 OnClick = Button4Click
　 end
　 object Button5: TButton
　　 Left = 375
　　 Top = 120
　　 Width = 93
　　 Height = 25
　　 Caption = #28165#38500#21453#22797#26631#35760
　　 TabOrder = 4
　　 OnClick = Button5Click
　 end
　 object OpenDialog1: TOpenDialog
　　 Left = 128
　　 Top = 24
　 end
　 object Timer1: TTimer
　　 OnTimer = Timer1Timer
　　 Left = 128
　　 Top = 72
　 end
end