Add(MainForm,2953706,21,105)
{
 Width=271
 Height=232
}
Add(Button,3420873,210,112)
{
 Left=60
 Top=25
 Width=115
 Height=35
 Caption="Запись"
 link(onClick,13055577:doEvent1,[])
}
Add(Hub,13055577,280,112)
{
 link(onEvent1,14688063:doOpen,[(364,118)(364,97)])
 link(onEvent2,2376120:doRead,[(322,125)(322,146)])
}
Add(Ini,2376120,329,140)
{
 FileName="config.ini"
 Section="login"
 Key="CIF_key"
 link(onResult,9267184:doEvent1,[])
}
Add(FileStream,14688063,504,91)
{
 FileName="123.txt"
 Mode=1
 AutoCopy=0
 Point(doCopyFromStream)
 Point(doPosition)
 link(onLoad,16436871:doData,[])
}
Add(DoData,16436871,553,91)
{
 link(onEventData,14688063:doPosition,[(594,97)(594,142)(491,142)(491,118)])
 link(Data,14688063:Size,[(559,79)(544,79)(544,134)(517,134)])
}
Add(StreamPack,2506288,448,196)
{
 DataCount=#3:CIF|
 link(onPack,14688063:doCopyFromStream,[(492,202)(492,111)])
 link(CIF,15890435:Value,[])
}
Add(Memory,15890435,448,140)
{
}
Add(Hub,14743015,406,140)
{
 link(onEvent1,15890435:doValue,[])
 link(onEvent2,2506288:doPack,[(441,153)(441,202)])
}
Add(Button,3492651,210,273)
{
 Left=60
 Top=105
 Width=115
 Height=35
 Caption="Чтение"
 link(onClick,4170919:doOpen,[])
}
Add(FileStream,4170919,441,273)
{
 FileName="123.txt"
 Point(doCopyFromStream)
 Point(doPosition)
 link(onLoad,9658566:doUnPack,[])
}
Add(StreamUnPack,9658566,497,273)
{
 DataCount=#3:CIF|
 link(onUnPack,16305348:doText,[])
}
Add(Edit,16305348,574,273)
{
 Left=15
 Top=150
 Width=215
 link(Str,9658566:CIF,[(580,261)(556,261)(556,317)(503,317)])
}
Add(Label,8047883,539,182)
{
 Left=20
 Top=75
 Caption="0000000"
}
Add(Hub,9267184,371,140)
{
 link(onEvent1,14743015:doEvent1,[])
 link(onEvent2,8047883:doText,[(462,153)(462,188)])
}

Add(MainForm,1760091,175,147)
{
 Width=271
 Height=232
}
Add(Button,3420873,364,154)
{
 Left=60
 Top=25
 Width=115
 Height=35
 Caption="Запись"
 link(onClick,13055577:doEvent1,[])
}
Add(Hub,13055577,434,154)
{
 OutCount=3
 link(onEvent1,14688063:doOpen,[(518,160)(518,139)])
 link(onEvent2,4378606:doData,[(462,167)(462,223)])
 link(onEvent3,14688063:doClose,[(553,174)(553,146)])
}
Add(Ini,2376120,483,182)
{
 FileName="config.ini"
 Section="login"
 Key="CIF_key"
}
Add(FileStream,14688063,658,133)
{
 FileName="123.txt"
 Mode=1
 AutoCopy=0
 Point(doCopyFromStream)
 Point(doPosition)
 link(onLoad,16436871:doData,[])
}
Add(DoData,16436871,707,133)
{
 link(onEventData,14688063:doPosition,[(748,139)(748,184)(645,184)(645,160)])
 link(Data,14688063:Size,[(713,121)(698,121)(698,176)(671,176)])
}
Add(StreamPack,2506288,602,238)
{
 DataCount=#3:CIF|
 link(onPack,14688063:doCopyFromStream,[(646,244)(646,153)])
 link(CIF,15890435:Value,[])
}
Add(Memory,15890435,602,182)
{
}
Add(Hub,14743015,560,182)
{
 link(onEvent1,15890435:doValue,[])
 link(onEvent2,2506288:doPack,[(595,195)(595,244)])
}
Add(Button,3492651,364,315)
{
 Left=60
 Top=105
 Width=115
 Height=35
 Caption="Чтение"
 link(onClick,4170919:doOpen,[])
}
Add(FileStream,4170919,595,315)
{
 FileName="123.txt"
 Point(doCopyFromStream)
 Point(doPosition)
 link(onLoad,9658566:doUnPack,[])
}
Add(StreamUnPack,9658566,651,315)
{
 DataCount=#3:CIF|
 link(onUnPack,16305348:doText,[])
}
Add(Edit,16305348,728,315)
{
 Left=15
 Top=150
 Width=215
 link(Str,9658566:CIF,[(734,303)(710,303)(710,359)(657,359)])
}
Add(Label,8047883,693,224)
{
 Left=20
 Top=75
 Caption="0000000"
}
Add(Hub,9267184,525,182)
{
 link(onEvent1,14743015:doEvent1,[])
 link(onEvent2,8047883:doText,[(616,195)(616,230)])
}
Add(DoData,4378606,476,217)
{
 Data=String(12345678)
 link(onEventData,9267184:doEvent1,[(516,223)(516,188)])
}

procedure THIFileStream._work_doCopyFromStream;
var s:PStream;O:boolean;
begin
  O := (not Assigned(Fs))and _prop_AutoCopy;
  if O then Open(_Data);
//...
  if O then Free_And_Nil(Fs);
end;