Add(FileStream,6714465,462,224)
{
 FileName="tmp.bin"
 Mode=1
 AutoCopy=0
 Point(doCopyFromStream)
}
Add(Button,5533004,343,238)
{
 Left=35
 Top=40
 link(onClick,13799415:doData,[])
}
Add(DoData,13799415,399,238)
{
 link(onEventData,6714465:doCopyFromStream,[])
 link(Data,4516783:Stream,[])
}
Add(MemoryStream,4516783,399,182)
{
}

Add(FileStream,16064866,322,217)
{
 link(onLoad,10945706:doFor,[])
}
Add(ODialog,8497593,196,217)
{
 Filter="Программы для перфоратора (*.lda) |*.LDA|Все файлы (*.*)|*.*"
 Title="Открыть файл"
 StartDir="Открытие файла"
 link(onExecute,1756265:doText,[])
}
Add(Button,8230778,133,217)
{
 Left=320
 Top=70
 Width=65
 Caption="Обзор"
 Flat=0
 link(onClick,8497593:doExecute,[])
}
Add(Edit,1756265,259,217)
{
 Left=30
 Top=70
 Width=290
 Text="*.lda"
 link(onChange,16064866:doOpen,[])
}
Add(If_else,13763272,448,217)
{
 Op2=String(true)
 link(onTrue,7210271:doIndex,[])
}
Add(For,10945706,387,217)
{
 Start=1
 link(onEvent,13763272:doCompare,[])
 link(End,16064866:Size,[(400,207)(371,207)(371,259)(335,259)])
}
Add(GetIndexData,7210271,506,217)
{
}