Можно ли добавить музыку/мелодию в код в паскале, сделанный модулями?

uses graphabc;
var u,p1x,p1y,p2x,p2y,x1,y1,x2,y2: integer;
 
begin
lockdrawing;
p1x:=100;
p1y:=150;
p2x:=450;
p2y:=150;
 
repeat
 
for u:=0 to 130 do
    begin
    ClearWindow;                    //очистить окно
 
//барабан
    setpenwidth(3);
    setbrushcolor(clwhite);
    ellipse(150,300,450,400);
    setpencolor(clwhite);
    rectangle(150,350,450,300);
    setpencolor(clblack);
    setbrushcolor(clcream);
    ellipse(150,300,450,200);
    line(150,350,150,250);
    line(450,350,450,250);
    floodfill(160,350,clmaroon);
 
    SetPenWidth(5);                 //толщина пера =5
//левая палочка  вниз
    x1:=p1x+Round(150*sin(Pi*u/180));  //координаты центра второго круга по х
    y1:=p1y-Round(150*cos(Pi*u/180));  //координаты центра второго круга по н
    SetPenWidth(7);                 //толщина пера
    line(p1x,p1y,x1,y1);
    setbrushcolor(clyellow);        //цвет
    circle(x1,y1,20);                 //круг
//правая палочка вверх
    x2:=p2x-Round(150*sin(Pi*(130-u)/180));  //координаты центра второго круга по х
    y2:=p2y-Round(150*cos(Pi*(130-u)/180));  //координаты центра второго круга по н
    SetPenWidth(7);                 //толщина пера
    line(p2x,p2y,x2,y2);
    setbrushcolor(clyellow);        //цвет
    circle(x2,y2,20);                 //круг
 
    sleep(5);                      //задержка
    Redraw;                         //перерисовка
end;
 
for u:=0 to 130 do
    begin
    ClearWindow;                    //очистить окно
 
//барабан
    setpenwidth(3);
    setbrushcolor(clwhite);
    ellipse(150,300,450,400);
    setpencolor(clwhite);
    rectangle(150,350,450,300);
    setpencolor(clblack);
    setbrushcolor(clcream);
    ellipse(150,300,450,200);
    line(150,350,150,250);
    line(450,350,450,250);
    floodfill(160,350,clmaroon);
 
    SetPenWidth(5);                 //толщина пера =5
//левая палочка  вверх
    x1:=p1x+Round(150*sin(Pi*(130-u)/180));  //координаты центра второго круга по х
    y1:=p1y-Round(150*cos(Pi*(130-u)/180));  //координаты центра второго круга по н
    SetPenWidth(7);                 //толщина пера
    line(p1x,p1y,x1,y1);
    setbrushcolor(clyellow);        //цвет
    circle(x1,y1,20);                 //круг
//правая палочка вниз
    x2:=p2x-Round(150*sin(Pi*u/180));  //координаты центра второго круга по х
    y2:=p2y-Round(150*cos(Pi*u/180));  //координаты центра второго круга по н
    SetPenWidth(7);                 //толщина пера
    line(p2x,p2y,x2,y2);
    setbrushcolor(clyellow);        //цвет
    circle(x2,y2,20);                 //круг
 
    sleep(5);                      //задержка
    Redraw;                         //перерисовка
end;
 
until false;
end.