А вот эта версия еще лучше !

[code:1]Add(MainForm,10130017,-33,189) {
Left=20
Top=105
Width=499
Height=386
}
Add(Button,13285760,-33,35)
{
Left=9
Top=7
Width=220
Caption="открыть"
link(onClick,10347579:doExecute,[])
}
Add(GetDataEx,10498473,37,112)
{
link(Data,11002060:Size,[(50,91)(281,91)])
}
Add(HubEx,11731569,51,133)
{
link(onEvent,6798934:doFor,[])
}
Add(Hub,3185846,471,329)
{
OutCount=3
link(onEvent1,4184291:doWork3,[(540,335)])
link(onEvent2,16570891:doWork3,[(526,342)(526,284)(482,284)(241,284)])
link(onEvent3,11731569:doWork3,[(566,349)(566,240)(55,240)])
}
Add(Edit,5846125,79,35)
{
Left=9
Top=32
Width=441
Font=[Arial,8,0,0,1]
Text="Имя файла"
link(onChange,15327600:doEvent1,[(144,41)(144,49)])
}
Add(Math,15068998,394,336)
{
OpType=9
Op2=4
link(onResult,3185846:doEvent1,[(455,342)(455,335)])
}
Add(ODialog,10347579,30,35)
{
link(onExecute,5846125:doText,[])
}
Add(Convertor,10811591,338,99)
{
Mode=6
Digits=8
link(onResult,3795143:doStrCat,[])
link(Data,6798934:Position,[(344,89)(329,89)(329,185)(148,185)])
}
Add(If_else,15211951,289,99)
{
Op2=Integer(0)
link(onTrue,10811591:doConvert,[])
}
Add(DoData,4636757,310,357)
{
link(onEventData,15068998:doOperation,[(368,363)(368,342)])
link(Data,12325570:Var3,[(316,345)])
}
Add(Edit,15142902,-19,140)
{
Left=234
Top=7
Width=215
Font=[Arial,8,0,0,1]
Text="размер данных"
link(onChange,11731569:doWork2,[(35,146)(35,146)])
link(Str,10498473:Var1,[(-13,121)])
}
Add(Math,5842296,121,294)
{
OpType=10
Op2=4
link(onResult,10069174:doMax,[(179,300)(179,307)])
}
Add(DoData,2372883,58,294)
{
link(onEventData,5842296:doOperation,[])
link(Data,10498473:Var3,[(64,121)])
}
Add(ScrollBar,10069174,205,294)
{
Left=460
Top=60
Width=20
Height=285
Kind=1
Point(doMax)
link(onPosition,7342585:doWork1,[(281,300)])
}
Add(Math,2598109,240,99)
{
OpType=8
Op2=16
ResultType=0
link(onResult,15211951:doCompare,[])
}
Add(MemoryStream,11002060,268,8)
{
Point(doPosition)
}
Add(FileStream,3124149,219,8)
{
Mode=2
Point(doPosition)
link(onLoad,11002060:doCopy,[])
}
Add(Hub,15327600,149,43)
{
OutCount=7
link(onEvent1,11002060:doClear,[(224,49)(224,21)])
link(onEvent2,4184291:doWork2,[(214,56)(214,258)])
link(onEvent3,3124149:doOpen,[(200,63)(200,14)])
link(onEvent4,3124149:doClose,[(200,70)(200,21)])
link(onEvent5,16570891:doWork2,[(209,77)(209,61)])
link(onEvent6,15142902:doText,[(191,84)(191,117)(-29,117)(-29,146)])
link(onEvent7,2372883:doData,[(191,91)(191,194)(48,194)(48,300)])
}
Add(Math,12882683,275,190)
{
OpType=8
Op2=16
ResultType=0
link(onResult,4975072:doCompare,[])
}
Add(GetDataEx,11376439,457,98)
{
link(Data,1418242:Value,[(470,95)(463,95)])
}
Add(StrCat,4303662,387,141)
{
Str1=" "
link(onStrCat,10787905:doWork2,[])
}
Add(StrCat,639050,457,141)
{
link(onStrCat,1418242:doValue,[(499,147)(499,114)(447,114)(447,62)])
link(Str1,11376439:Var1,[(463,107)])
}
Add(Convertor,8708395,338,141)
{
Mode=6
link(onResult,4303662:doStrCat,[])
}
Add(HubEx,10787905,436,134)
{
link(onEvent,639050:doStrCat,[(451,147)(451,147)])
}
Add(DataToFile,15938334,275,141)
{
link(onGet,8708395:doConvert,[])
link(Stream,11002060:Stream,[(281,85)(274,85)])
}
Add(For,6798934,142,140)
{
End=304
IncludeEnd=1
link(onEvent,5763157:doEvent1,[])
link(onStop,7281195:doOperation,[(224,153)(224,245)])
}
Add(Hub,5763157,191,140)
{
OutCount=4
link(onEvent1,2598109:doOperation,[(231,146)(231,105)])
link(onEvent2,15938334:doGet,[])
link(onEvent3,12882683:doOperation,[(231,160)(231,196)])
}
Add(If_else,4975072,338,190)
{
Op2=Integer(15)
link(onTrue,4540781:doEvent1,[])
}
Add(StrCat,3795143,387,99)
{
Str2=":"
link(onStrCat,10787905:doWork1,[(440,105)])
}
Add(HubEx,16570891,237,48)
{
link(onEvent,11002060:doPosition,[(257,61)(257,28)])
}
Add(Hub,4540781,405,190)
{
link(onEvent1,8440203:doWork1,[(482,196)])
link(onEvent2,1418242:doClear,[(447,203)(447,69)])
}
Add(Memory,1418242,457,56)
{
Default=String()
}
Add(DoData,2842396,506,188)
{
link(onEventData,5265120:doAdd,[(557,194)(557,174)])
link(Data,11376439:Var3,[(512,107)])
}
Add(HubEx,8440203,478,189)
{
link(onEvent,2842396:doData,[(496,202)(496,194)])
}
Add(ListBox,5265120,576,168)
{
Top=60
Width=455
Height=285
Color=12639424
Font=[Courier New,8,0,0,1]
link(onKeyDown,1319652:doCase,[(618,188)(618,327)(69,327)(69,447)])
}
Add(Math,7281195,275,239)
{
OpType=8
Op2=16
ResultType=0
link(onResult,5882437:doCompare,[])
}
Add(If_else,5882437,338,239)
{
Op2=Integer(15)
link(onFalse,8440203:doWork3,[(482,252)])
}
Add(Case,1319652,79,441)
{
Value=Integer(38)
link(onNextCase,13394395:doCase,[])
link(onTrue,10298790:doOperation,[(120,454)(120,391)])
}
Add(Case,13394395,149,441)
{
Value=Integer(40)
link(onTrue,14050277:doOperation,[])
}
Add(GetDataEx,12325570,242,336)
{
link(Data,10069174:Position,[(255,333)(211,333)])
}
Add(Math,10298790,130,385)
{
OpType=1
Op2=1
link(onResult,13315088:doWork2,[])
link(Op1,12325570:Var1,[(136,345)])
}
Add(HubEx,13315088,249,378)
{
link(onEvent,2687458:doEvent1,[(267,391)(267,468)])
}
Add(Math,14050277,207,448)
{
Op2=1
link(onResult,13315088:doWork3,[(253,454)])
link(Op1,12325570:Var2,[(213,399)(255,399)])
}
Add(Hub,2687458,277,462)
{
link(onEvent1,10069174:doPosition,[(327,468)(327,430)(195,430)(195,300)])
link(onEvent2,7342585:doWork3,[(319,475)(319,411)(281,411)])
}
Add(HubEx,7342585,277,343)
{
link(onEvent,4636757:doData,[(298,356)(298,363)])
}
Add(HubEx,4184291,536,245)
{
link(onEvent,5265120:doClear,[(560,258)(560,181)])
}[/code:1]