Add(MainForm,2953706,49,140)
{
 Width=573
 Height=757
 BorderStyle=1
 Position=1
}
Add(ListBox,3667847,427,259)
{
 Left=15
 Top=35
 Width=330
 Height=585
 Enabled=1
 DataType=1
 Point(doSelect)
 Point(onSelect)
 Point(String)
 link(onChange,2123555:doText,[(471,265)(471,349)(422,349)(422,433)])
 link(onSelect,4754903:doPart,[(481,279)(481,335)])
}
Add(Button,6150171,119,259)
{
 Left=380
 Top=35
 Width=105
 Caption="Вход"
 link(onClick,3990286:doBrowse,[])
}
Add(Browse,3990286,203,259)
{
 link(onBrowse,3452722:doValue,[])
}
Add(FileSearch,7682537,343,259)
{
 Ext="*.mp3"
 link(onSearch,3667847:doAdd,[])
 link(Dir,3452722:Value,[(356,247)(314,247)(314,303)(272,303)])
}
Add(Memory,3452722,266,259)
{
 link(onData,7682537:doSearch,[])
}
Add(Button,14473396,84,406)
{
 Left=380
 Top=125
 Width=105
 Height=45
 Caption="ЕБАААААААААШЬ"
 link(onClick,14913632:doFor,[])
}
Add(FileTools,11313971,630,413)
{
 link(FileName,1245915:Var2,[(636,367)(461,367)])
 link(NewFileName,5405835:Result,[(643,401)(609,401)(609,469)(573,469)])
}
Add(FilePartElm,4754903,504,329)
{
 Point(Part)
 link(onPart,5405835:doStrCatDlm,[(552,335)(552,426)])
 link(FileName,1245915:Var3,[(510,316)])
}
Add(GetDataEx,1245915,455,311)
{
 Angle=3
 link(Data,3667847:String,[(454,316)])
}
Add(Button,10735603,189,147)
{
 Left=385
 Top=90
 Width=95
 Caption="Выход"
 link(onClick,9286342:doBrowse,[])
}
Add(Browse,9286342,259,147)
{
 link(onBrowse,13620598:doValue,[])
}
Add(Memory,13620598,567,147)
{
}
Add(Edit,2018672,154,308)
{
 Left=390
 Top=225
 Width=90
 Text="Сколько?"
}
Add(For,14913632,147,406)
{
 IncludeEnd=1
 link(onEvent,10878806:doRandom,[])
 link(End,2018672:Text,[])
}
Add(Message,8581972,707,413)
{
}
Add(Label,2123555,434,427)
{
 Left=400
 Top=65
 Width=82
 Height=17
 Caption="Хуй"
 AutoSize=1
 link(Text,11225144:Var2,[(440,383)(426,383)])
}
Add(Random,10878806,252,406)
{
 Max=0
 Mode=2
 Point(Max)
 link(onRandom,3667847:doSelect,[(392,412)(392,293)])
 link(Max,11225144:Var1,[(258,335)])
}
Add(StrCatDelim,5405835,567,420)
{
 Delimiter="\"
 link(onStrCatDlm,11313971:doCopy,[])
 link(Str1,13620598:Value,[])
 link(Str2,4754903:Part,[(580,387)(510,387)])
}
Add(GetDataEx,11225144,420,330)
{
 Angle=1
 link(Data,3667847:Count,[(440,335)])
}