begin
//Проверяем идет ли воспроизведение
if mode=play then
begin
  BASS_ChannelPause(Channel);//останавливаем воспроизведение - пауза
  mode:=paused;//устанавливаем playmode -> пауза
end
   else
  player;
end;

procedure TForm_player.Button2Click(Sender: TObject);
begin
if CheckBox1.Checked = true then            //если галочка установлена в CheckBox1, то
begin
Povtor;                    // запускается процедура повтора которая не даёт перейти на другую строку в listbox, а возвращает ползунок в начало
Filename:=ListBox1.Items.Strings[i];         // и начинается
ListBox1ItemIndex:=i;                    // воспоризведение
mode:=stop;                    // файла
player;
end
else if CheckBox2.Checked = True then   // Если галочка установлена CheckBox2, то
Randm                    // Запускается процедура Random
else
begin                    //Если не в одном из checkbox'ов галочка не установлена, то происходит переход на следующий трек
if i<ListBox1.Items.Count-1 then                  
begin                     
inc(i);
Filename:=List[play_list].Items.Strings[i];
List[play_list].ItemIndex:=i;
mode:=stop;
player;
end else exit;
end;
end;

procedure TForm_player.Povtor;                            //Повтор
begin
   if image2.left = image1.left+image2.width-10 then   
   image2.left:=image1.left;                    //Возвращаем ползунок в начало до того, как он дошёл до конца
   end;

procedure TForm_player.Randm;                         //Рандом
var                     
old, new: integer;
begin
Randomize;                     
old:=ListBox1.ItemIndex;                    // и присваеваем переменной "old" номер этой строки
new:=random(ListBox1.Items.Count);                  //Присваеваем переменной номер случайно выбранной строки   
if new = old then begin                    // Проверяем, если обе переменные равны, то   
new:=random(ListBox1.Items.Count+1);              // Повторяем выбор строки
i:=new;                    // Присваиваем переменной "i" номер случайного трека
Filename:=ListBox1.Items.Strings[i];                  // Воспроизводим выбранный трек
ListBox1.ItemIndex:=i;
mode:=stop;
player;                 
end else begin                    //Если переменные "old" и "new" не равны   
i:= new;                     
Filename:=ListBox1.Items.Strings[i];
ListBox1.ItemIndex:=i;
mode:=stop;
player;
end;
end;

     
   if i<List[play_list].Items.Count-1 then begin
Button2Click(Button2);
end else exit;
end;

procedure TForm_player.Button2Click(Sender: TObject);  
  begin  
  if CheckBox1.Checked = true then            //если галочка установлена в CheckBox1, то  
  begin  
  PovtorTrek;              // запускается процедура повтора которая не даёт перейти на другую строку в listbox, а возвращает ползунок в начало   
  end  
  else if CheckBox2.Checked = True then   // Если галочка установлена CheckBox2, то  
  ListPovtor                    // Запускается процедура повтора плейлиста
  else  
  begin                    //Если не в одном из checkbox'ов галочка не установлена, то происходит переход на следующий трек  
  if i<ListBox1.Items.Count-1 then                   
  begin                      
  inc(i);  
  Filename:=List[play_list].Items.Strings[i];  
  List[play_list].ItemIndex:=i;  
  mode:=stop;  
  player;  
  end else exit;  
  end;  
  end;

procedure TForm_player.PovtorTrek;                    //Повтор  
  begin  
    if image2.left = image1.left+image2.width-10 then    
    image2.left:=image1.left;                    //Возвращаем ползунок в начало до того, как он дошёл до конца  
    end;

procedure TForm_player.PovtorList;     
begin
if i<ListBox1.Items.Count-1 then begin
inc(i);
Filename:=ListBox1.Items.Strings[i];
ListBox1.ItemIndex:=i;
mode:=stop;
player;
end else begin
  i:=0;
Filename:=ListBox1.Items.Strings[i];
ListBox1.ItemIndex:=i;
mode:=stop;
player;
end;
end;

    if i<List[play_list].Items.Count-1 then begin  
  Button2Click(Button2);  
  end else exit;  
  end;

procedure TForm_player.Button2Click(Sender: TObject);
begin
CheckBox1.Checked = true

begin
if CheckBox1.Checked = true then //если галочка установлена в CheckBox1, то
begin
PovtorTrek; // запускается процедура повтора которая не даёт перейти на другую строку в listbox, а возвращает ползунок в начало
end
else if CheckBox2.Checked = True then // Если галочка установлена CheckBox2, то
ListPovtor // Запускается процедура повтора плейлиста
else
begin //Если не в одном из checkbox'ов галочка не установлена, то происходит переход на следующий трек
if i<ListBox1.Items.Count-1 then
begin
inc(i);
Filename:=List[play_list].Items.Strings[i];
List[play_list].ItemIndex:=i;
mode:=stop;
player;
end else exit;
end;
end;

procedure TForm_player.Button1Click(Sender: TObject);
begin
if n<3 then  n:=n+1 else n:=1;
       case n of
      1: Button1.Caption:='Повтор трека';
      2: Button1.Caption:='Повтор листа';
      3: Button1.Caption:='Без повтора';
      end;
end;

procedure TForm_player.ListPovtor;
begin
      if i<ListBox1.Items.Count-1 then
        begin
         inc(i);
      ListBox1.ItemIndex:=i;
      Filename:=ListBox1.Items.Strings[i];[/i]
         mode:=stop;
         player;
        end
//если лист закончился - переходим на первый трек
        else
          begin
            i:=0;
            ListBox1.ItemIndex:=i;
            Filename:=ListBox1.Items.Strings;
            mode:=stop;
            player;
          end;
end;
procedure TForm_player.PovtorTrek;
begin
         mode:=stop;
         player;
end;

procedure TForm_player.bezPovtor;
begin
if i<ListBox1.Items.Count-1 then
        begin
         inc(i);
      ListBox1.ItemIndex:=i;
      Filename:=ListBox1.Items.Strings;
        
         mode:=stop;
         player;
        end
//если лист закончился - выходим
        else begin mode:=stop;exit;end;
end;
Процедуры должны быть описаны перед процедурой таймера. Не забудь описать заголовки процедур в [b]Type[/b]:
   procedure ListPovtor;
         procedure PovtorTrek;
         procedure bezPovtor;
Ну а вместо перехода на следующий трек в процедуре OnTime таймера просто подставьте:
//воспроизведение следующей песни
//если время проигрывания равно длине песни по времени,
// в место этого if  BASS_ChannelGetPosition(channel, 0)=BASS_ChannelGetLength(channel, 0) then
// лучше сделать так:
if  BASS_ChannelIsActive(channel)=BASS_ACTIVE_STOPPED   then
        begin
//то выбираем следующую песню из плейлиста
      case n of
      1: PovtorTrek;
      2: ListPovtor;
      3: bezPovtor;
      end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
begin
image2.Visible:=True;
image1.Visible:=false;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
begin
image2.Visible:=false;
image3.Visible:=True;
end;

procedure TForm1.Image3MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
begin
   image3.Visible:=false;
image4.Visible:=True;
end;

procedure TForm1.Image3MouseUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
begin
    image4.Visible:=false;
image1.Visible:=True;
end;