#sha
Make(delphi)
Add(MainForm,7058685,35,28)
{
 Left=20
 Top=105
 Width=185
 Height=144
}
Add(Edit,10451767,98,35)
{
 Left=15
 Top=35
 Width=20
 TabOrder=8
 Hint="Текущая папка"
 Text="0"
}
Add(Edit,6335319,161,35)
{
 Left=55
 Top=35
 Width=20
 TabOrder=8
 Hint="Текущая папка"
 Text="0"
}
Add(Edit,16302455,210,35)
{
 Left=95
 Top=35
 Width=20
 TabOrder=8
 Hint="Текущая папка"
 Text="0"
}
Add(Edit,8649644,259,35)
{
 Left=135
 Top=35
 Width=20
 TabOrder=8
 Hint="Текущая папка"
 Text="0"
}
Add(BitsToInt,11692187,154,105)
{
 link(onNumber,1169951:doText,[])
 link(Bit1,10451767:Text,[(160,86)(104,86)])
 link(Bit2,6335319:Text,[])
 link(Bit3,16302455:Text,[(174,86)(216,86)])
 link(Bit4,8649644:Text,[(181,92)(265,92)])
}
Add(Timer,6687889,98,105)
{
 Interval=100
 link(onTimer,11692187:doNumber,[])
}
Add(Edit,1169951,252,105)
{
 Left=135
 Top=85
 Width=20
 TabOrder=8
 Hint="Текущая папка"
 Text=""
}
Add(Label,2392971,350,35)
{
 Left=10
 Top=15
 Width=33
 Height=17
 Caption="bit1(1)"
}
Add(Label,10526424,350,84)
{
 Left=50
 Top=15
 Width=33
 Height=17
 Caption="bit2(2)"
}
Add(Label,9565278,399,84)
{
 Left=90
 Top=15
 Width=33
 Height=17
 Caption="bit3(4)"
}
Add(Label,11972878,350,133)
{
 Left=130
 Top=15
 Width=33
 Height=17
 Caption="bit4(8)"
}
Add(Label,198115,399,35)
{
 Left=130
 Top=65
 Width=33
 Height=17
 Caption="число"
}