object Form1: TForm1
  Left = 192
  Top = 103
  BorderStyle = bsDialog
  Caption = 
    'BASS custom looping example (left-click to set loop start, right' +
    '-click to set end)'
  ClientHeight = 200
  ClientWidth = 253
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnMouseUp = FormMouseUp
  PixelsPerInch = 96
  TextHeight = 13
  object PB: TPaintBox
    Left = 0
    Top = 0
    Width = 253
    Height = 200
    Align = alClient
    OnMouseDown = FormMouseDown
    OnMouseMove = FormMouseMove
    OnMouseUp = FormMouseUp
    OnPaint = PBPaint
  end
  object OpenDialog1: TOpenDialog
    Filter = 
      'Playable files|*.mp3;*.mp2;*.mp1;*.ogg;*.wav;*.aif;*.mo3;*.it;*.' +
      'xm;*.s3m;*.mtm;*.mod;*.umx|All files (*.*)|*.*'
    Title = 'Select a file to play'
    Left = 8
    Top = 8
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 48
    Top = 8
  end
end