Add(MainForm,15739648,203,364)
{
 Width=445
 Height=264
 Caption="BASS internet radio"
 Point(Handle)
 link(onCreate,4252681:doInit,[])
}
Add(BASS_Init,4252681,280,378)
{
 link(onInit,10183901:doCheck,[])
 link(onError,11232751:doMessage,[(324,391)(324,433)])
 link(Handle,15739648:Handle,[(300,366)(254,366)(254,408)(209,408)])
}
Add(BASS_Version,10183901,336,378)
{
 link(onCheckFailed,109118:doMessage,[(380,391)(380,433)])
}
Add(Message,11232751,336,427)
{
 Message="Error BASS initialization"
 Caption="Error"
 Icon=1
}
Add(Message,109118,392,427)
{
 Message="Incorrect version of BASS library "
 Caption="Error"
 Icon=1
}
Add(BASS_StreamCreateURL,12045247,525,371)
{
 Name="InetStream"
 link(onCreate,15405158:doEvent1,[(565,377)(565,314)])
 link(onMeta,7586771:doEvent1,[])
 link(onStatus,11163659:doText,[(565,391)(565,426)])
 link(onError,13951091:doStrCat,[(565,398)(565,475)])
 link(URL,5325196:String,[])
}
Add(Button,6044672,476,371)
{
 Left=5
 Top=5
 Caption="Play"
 link(onClick,12045247:doCreate,[])
}
Add(ComboBox,5325196,518,308)
{
 Left=65
 Top=5
 Width=365
 Height=21
 Strings=#52:http://www.radioparadise.com/musiclinks/rp_128-9.m3u|49:http://www.radioparadise.com/musiclinks/rp_32.m3u|35:http://www.sky.fm/mp3/classical.pls|39:http://www.sky.fm/mp3/classical_low.pls|32:http://www.sky.fm/mp3/the80s.pls|36:http://www.sky.fm/mp3/the80s_low.pls|45:http://bassdrive.com/v2/streams/BassDrive.m3u|46:http://bassdrive.com/v2/streams/BassDrive3.m3u|33:http://somafm.com/secretagent.pls|35:http://somafm.com/secretagent24.pls|42:http://www.zaycev.fm:9002/ZaycevFM(96).m3u|
}
Add(BASS_ChannelPlay,9406897,630,329)
{
 Channel="InetStream"
}
Add(Message,12393418,630,469)
{
 Caption="Error"
 Icon=1
}
Add(StrCat,13951091,574,469)
{
 Str1="Error opening url: "
 link(onStrCat,12393418:doMessage,[])
}
Add(BASS_ChannelEnumTags,12731962,693,385)
{
 Channel="InetStream"
 Type=5
 link(onEnumTags,14517957:doText,[])
}
Add(ListBox,10629913,749,322)
{
 Left=50
 Top=110
 Width=380
 Height=125
}
Add(Hub,7586771,630,378)
{
 link(onEvent2,8049503:doWork2,[])
}
Add(Label,3855079,511,420)
{
 Left=5
 Top=40
 Width=37
 Height=17
 Caption="Status:"
}
Add(Label,11163659,574,420)
{
 Left=50
 Top=40
 Width=380
 Height=17
 Color=-16777204
 Caption=""
 AutoSize=1
}
Add(Hub,15405158,574,308)
{
 OutCount=4
 link(onEvent1,8049503:doWork1,[(676,314)])
 link(onEvent2,10629913:doClear,[(734,321)(734,335)])
 link(onEvent3,6223963:doEnumTags,[])
 link(onEvent4,9406897:doPlay,[])
}
Add(HubEx,8049503,672,385)
{
 link(onEvent,12731962:doEnumTags,[])
}
Add(Label,10829890,749,434)
{
 Left=5
 Top=65
 Width=24
 Height=17
 Caption="Title"
}
Add(Label,14517957,749,385)
{
 Left=50
 Top=65
 Width=380
 Height=35
 Color=-16777204
 Caption=""
 AutoSize=1
}
Add(BASS_ChannelEnumTags,6223963,693,322)
{
 Channel="InetStream"
 Type=4
 link(onEnumTags,10629913:doAdd,[])
}

#pas
//   if _prop_Device = -1 then              
//     d := Readinteger(_Data, _data_Device, 0)
//   else