Add(MainForm,16033666,35,84)
{
 Left=20
 Top=105
 Width=286
 Height=111
 BorderStyle=1
 Position=1
 link(onCreate,16744208:doEvent1,[])
}
Add(BASS_MusicPlayer,73642,253,272)
{
 link(Handle,8463422:Data1,[(259,264)(258,264)])
}
Add(BASS_MusicFile,48227,253,181)
{
 link(FileName,14164922:Value,[(259,173)(258,173)])
}
Add(GetData,8463422,252,224)
{
 link(Data,48227:HMUSIC,[(258,219)(259,219)])
}
Add(Hub,8083488,196,231)
{
 OutCount=3
 link(onEvent3,73642:doPlay,[(240,251)(240,278)])
}
Add(Memory,14164922,252,126)
{
 Default=String(123.xm)
}
Add(MemoryStream,4883134,147,140)
{
}
Add(BASS_Global,61487,150,80)
{
}
Add(Hub,16744208,84,119)
{
 OutCount=3
 link(onEvent1,61487:doInit,[(133,125)(133,86)])
 link(onEvent2,16624272:doData,[(131,132)(131,188)])
}
Add(DoData,16624272,147,182)
{
 link(onEventData,48227:doLoad,[(216,188)(216,187)])
 link(Data,4883134:Stream,[])
}
Add(Button,4412896,133,231)
{
 Left=100
 Top=55
 link(onClick,8083488:doEvent1,[(180,237)(180,237)])
}

unit muz;
//в uses нужно добавить minifmod (не забудьте положить minifmod.pas minifmod.obj в каталог с исходниками кряка)
{здесь пропущено описание переменных}
{$R mmu.res}   // подключаем файл с музыкой; mmu.rc должен содержать текст XMMOD  MUSIC  melody.xm

procedure TForm1.KOLForm1FormCreate(Sender: PObj); //при запуске программы начинаем воспроизведение
begin
 XMPlayFromRes('XMMOD', 'MUSIC');  
end;

procedure TForm1.KOLForm1Close(Sender: PObj; var Accept: Boolean); 
begin
 XMFree;       
end;