Так лучше !

[code:1]Add(MainForm,12169518,12,182) {
Left=20
Top=105
Width=490
Height=386
}
Add(Button,13285760,33,35)
{
Left=9
Top=7
Width=220
Caption="открыть"
link(onClick,10347579:doExecute,[])
}
Add(GetDataEx,10498473,89,112)
{
link(Data,11002060:Size,[(102,91)(333,91)])
}
Add(HubEx,11731569,103,133)
{
link(onEvent,6798934:doFor,[])
}
Add(Hub,3185846,523,329)
{
OutCount=3
link(onEvent1,12858706:doClear,[(565,335)(565,254)(499,254)(499,154)])
link(onEvent2,16570891:doWork3,[(578,342)(578,284)(293,284)])
link(onEvent3,11731569:doWork3,[(618,349)(618,240)(107,240)])
}
Add(Edit,5846125,131,35)
{
Left=9
Top=32
Width=441
Font=[Arial,8,0,0,1]
Text="Имя файла"
link(onChange,15327600:doEvent1,[(196,41)(196,49)])
}
Add(Math,15068998,446,336)
{
OpType=9
Op2=4
link(onResult,3185846:doEvent1,[(507,342)(507,335)])
}
Add(ODialog,10347579,82,35)
{
link(onExecute,5846125:doText,[])
}
Add(Convertor,10811591,390,99)
{
Mode=6
Digits=8
link(onResult,3795143:doStrCat,[])
link(Data,6798934:Position,[(396,89)(381,89)(381,185)(200,185)])
}
Add(If_else,15211951,341,99)
{
Op2=Integer(0)
link(onTrue,10811591:doConvert,[])
}
Add(DoData,4636757,362,357)
{
link(onEventData,15068998:doOperation,[(420,363)(420,342)])
link(Data,10069174:Position,[(368,342)(263,342)])
}
Add(Edit,15142902,33,140)
{
Left=234
Top=7
Width=215
Font=[Arial,8,0,0,1]
Text="размер данных"
link(onChange,11731569:doWork2,[(87,146)(87,146)])
link(Str,10498473:Var1,[(39,121)])
}
Add(Math,5842296,173,294)
{
OpType=10
Op2=4
link(onResult,10069174:doMax,[(231,300)(231,307)])
}
Add(DoData,2372883,110,294)
{
link(onEventData,5842296:doOperation,[])
link(Data,10498473:Var3,[(116,121)])
}
Add(ScrollBar,10069174,257,294)
{
Left=460
Top=60
Width=20
Height=285
Kind=1
Point(doMax)
link(onPosition,4636757:doData,[(325,300)(325,363)])
}
Add(Math,2598109,292,99)
{
OpType=8
Op2=16
ResultType=0
link(onResult,15211951:doCompare,[])
}
Add(MemoryStream,11002060,320,8)
{
Point(doPosition)
}
Add(FileStream,3124149,271,8)
{
Mode=2
Point(doPosition)
link(onLoad,11002060:doCopy,[])
}
Add(Hub,15327600,208,43)
{
OutCount=5
link(onEvent1,3124149:doOpen,[(255,49)(255,14)])
link(onEvent2,3124149:doClose,[(255,56)(255,21)])
link(onEvent3,16570891:doWork2,[(264,63)(264,61)])
link(onEvent4,15142902:doText,[(271,70)(271,83)(28,83)(28,146)])
link(onEvent5,2372883:doData,[(271,77)(271,187)(100,187)(100,300)])
}
Add(Math,12882683,327,190)
{
OpType=8
Op2=16
ResultType=0
link(onResult,4975072:doCompare,[])
}
Add(DoData,6127646,439,190)
{
Data=String(1310)
link(onEventData,10787905:doWork3,[(492,196)])
}
Add(StrCat,4303662,439,141)
{
Str1=" "
link(onStrCat,10787905:doWork2,[])
}
Add(RichEdit,12858706,509,141)
{
Left=9
Top=55
Width=441
Height=285
Font=[Courier New,8,0,0,204]
ScrollBars=3
InsertCRLF=1
}
Add(Convertor,8708395,390,141)
{
Mode=6
link(onResult,4303662:doStrCat,[])
}
Add(HubEx,10787905,488,134)
{
link(onEvent,12858706:doAdd,[])
}
Add(DataToFile,15938334,327,141)
{
link(onGet,8708395:doConvert,[])
link(Stream,11002060:Stream,[(333,85)(326,85)])
}
Add(For,6798934,194,140)
{
End=304
IncludeEnd=1
link(onEvent,5763157:doEvent1,[])
}
Add(Hub,5763157,243,141)
{
OutCount=3
link(onEvent1,2598109:doOperation,[(283,147)(283,105)])
link(onEvent2,15938334:doGet,[])
link(onEvent3,12882683:doOperation,[(283,161)(283,196)])
}
Add(If_else,4975072,390,190)
{
Op2=Integer(15)
link(onTrue,6127646:doData,[])
}
Add(StrCat,3795143,439,99)
{
Str2=":"
link(onStrCat,10787905:doWork1,[(492,105)])
}
Add(HubEx,16570891,289,48)
{
link(onEvent,11002060:doPosition,[(309,61)(309,28)])
}[/code:1]

Хотя еще нужно отимизировать ...