Add(MainForm,7875409,56,196)
{
 Left=20
 Top=105
 Height=365
 Position=1
 link(onCreate,12376779:doWork2,[])
}
Add(WinExec,2894033,280,322)
{
 RunEvent=1
 Point(doConsoleExec)
 Point(onConsoleResult)
 Point(onConsoleError)
 Point(doConsoleTerminate)
 link(FileName,4850658:Text,[(286,278)(258,278)])
 link(Params,7781866:FString,[(293,300)(349,300)])
 link(onConsoleResult,9479857:doCharset,[])
}
Add(Edit,14650391,294,420)
{
 Left=20
 Top=30
 Width=340
 Text=" "
 link(onEnter,3431846:doWork1,[(340,433)])
}
Add(Dir,12947609,371,455)
{
}
Add(Charset,9479857,329,329)
{
 link(onCharset,15340044:doCompare,[])
}
Add(HubEx,3431846,336,455)
{
 link(onEvent,12947609:doCurrentDir,[])
}
Add(Button,2104577,133,336)
{
 Left=20
 Top=140
 Width=355
 Height=30
 Caption="Create archive ( will update if exists)"
 link(onClick,2894033:doConsoleExec,[])
}
Add(Message,2483800,483,336)
{
 Message="Arhivaciya completed!"
 Caption="Making the archive"
 link(onMessage,2894033:doConsoleTerminate,[(527,342)(527,370)(268,370)(268,349)])
}
Add(Browse,9756919,182,455)
{
 link(onBrowse,7352252:doEvent1,[])
}
Add(Button,3394706,126,455)
{
 Left=355
 Top=30
 Width=20
 Font=[MS Sans Serif,8,1,0,1]
 Caption="..."
 link(onClick,9756919:doBrowse,[])
}
Add(Label,11838789,126,525)
{
 Left=125
 Top=55
 Width=94
 Height=20
 Caption="path to Rar.exe"
}
Add(Hub,7352252,231,455)
{
 link(onEvent1,14650391:doText,[(279,461)(279,426)])
 link(onEvent2,3431846:doWork2,[])
}
Add(StrMask,15340044,385,329)
{
 Mask="*Готово*"
 link(onFalse,6525840:doAdd,[(450,335)(450,300)])
 link(onTrue,2483800:doMessage,[])
}
Add(Memo,6525840,595,294)
{
 Left=20
 Top=175
 Width=355
 Height=130
 ScrollBars=2
}
Add(HubEx,12376779,322,224)
{
 Angle=1
 link(onEvent,7781866:doString,[(326,251)])
}
Add(Edit,2783327,343,140)
{
 Left=20
 Top=115
 Width=335
 Text="myarch"
 link(onChange,12376779:doWork1,[(387,146)(387,189)(326,189)])
}
Add(FormatStr,7781866,343,245)
{
 DataCount=1
 Mask="a %1"
 Point(FString)
 link(Str1,2783327:Text,[])
}
Add(Label,9171538,168,525)
{
 Left=115
 Top=95
 Width=123
 Height=20
 Caption="Name of the archive"
}
Add(Edit,4850658,252,196)
{
 Left=20
 Top=75
 Width=335
 Text="D:Program FilesWinRARRar.exe"
}
Add(Label,15454902,84,525)
{
 Left=130
 Top=10
 Width=101
 Height=20
 Caption="File for archiving"
}
Add(Button,327258,210,140)
{
 Left=355
 Top=115
 Width=20
 Font=[MS Sans Serif,8,1,0,1]
 Caption="..."
 link(onClick,12762008:doExecute,[])
}
Add(Button,6919217,147,196)
{
 Left=355
 Top=75
 Width=20
 Font=[MS Sans Serif,8,1,0,1]
 Caption="..."
 link(onClick,947101:doExecute,[])
}
Add(ODialog,12762008,266,140)
{
 link(onExecute,2783327:doText,[])
}
Add(ODialog,947101,203,196)
{
 StartDir="C:Program Files"
 FileName="Rar.exe"
 link(onExecute,4850658:doText,[])
}
Add(InfoTip,11078106,168,35)
{
 Info=#0:|45:Kluch i komandi chitai v Rar.txt i WinRAR.hlp|
 Font=[MS Sans Serif,14,1,0,1]
 Frame=3
 Width=400
 Height=74
}

Add(StrMask,15340044,385,329)
{
 Mask="*Готово*"
}

Add(WinExec,2894033,276,458)
{
 RunEvent=1
 Point(doConsoleExec)
 Point(onConsoleResult)
 Point(onConsoleError)
 Point(doConsoleTerminate)
 link(Params,10172135:Value,[])
}
Add(FormatStr,7781866,234,381)
{
 DataCount=1
 Mask="a %1"
 link(onFString,10172135:doValue,[])
}
Add(Memory,10172135,283,381)
{
}