Add(MainForm,2953706,147,77)
{
 link(onCreate,12906994:doEvent1,[])
}
Add(ListBox,16065848,322,105)
{
 Left=10
 Top=5
 Width=180
 Height=210
 FileName="MyFile.txt"
}
Add(Button,1890059,266,140)
{
 Left=55
 Top=225
 Caption="Save"
 link(onClick,16065848:doSave,[])
}
Add(Button,11770990,364,147)
{
 Left=265
 Top=230
 Caption="SaveAs"
 link(onClick,2753711:doExecute,[])
}
Add(SDialog,2753711,413,147)
{
 link(onExecute,12163433:doSave,[])
}
Add(ListBox,12163433,462,112)
{
 Left=205
 Top=5
 Width=170
 Height=210
}
Add(MultiElement,5666363,224,91)
{
 link(onEvent1,6144022:doEvent1,[])
 link(Data1,14004434:Value,[])
}
BEGIN_SDK
  Add(EditMulti,8714693,28,21)
  {
   EventCount=2
   WorkCount=2
   DataCount=1
   Width=440
   Height=158
   VOffset=7
   HOffset=28
   link(doWork1,5754394:doEvent1,[])
   link(doWork2,7088524:doFor,[(39,41)(39,55)])
  }
  Add(For,7088524,49,49)
  {
   @Hint=#18:Количество абзацев|
   IncludeEnd=1
   link(onEvent,5414593:doRandom,[])
   link(onStop,8714693:onEvent2,[(88,62)(88,140)(455,140)(455,41)])
   link(End,8714693:Data1,[])
  }
  Add(For,5247921,154,49)
  {
   @Hint=#29:Количество слов в предложении|
   link(onEvent,13991857:doText,[])
   link(onStop,5817580:doEvent1,[(193,62)(193,97)])
   link(End,5414593:Random,[(167,40)(146,40)(146,89)(111,89)])
  }
  Add(Random,5414593,105,49)
  {
   Min=7
   Max=15
   link(onRandom,5247921:doFor,[])
  }
  Add(InlineCode,13991857,203,42)
  {
   WorkPoints=#7:doStart|6:doText|
   EventPoints=#5:onRes|
   VarPoints=#
   DataPoints=#
   Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|23:    onRes  : THI_Event;|5:     |52:    procedure doStart(var _Data:TData; Index:Word); |50:    procedure doText(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.doStart;|6: begin|12:  Randomize;|5: end;|0:|29:procedure THiAsmClass.doText;|15:var sss:string;|16:    i,j:integer;|16:    _Rnd:double;|5:BEGIN|11:  sss:=' ';|24:  j:=round(Random*12)+2;|19:   for i:=0 to j do|9:    begin|18:     _Rnd:=Random;|42:     if _Rnd<0.0003 then sss:=sss+'ё' else|42:     if _Rnd<0.0007 then sss:=sss+'ъ' else|42:     if _Rnd<0.0033 then sss:=sss+'ф' else|42:     if _Rnd<0.0065 then sss:=sss+'э' else|42:     if _Rnd<0.0101 then sss:=sss+'щ' else|42:     if _Rnd<0.0149 then sss:=sss+'ц' else|42:     if _Rnd<0.0213 then sss:=sss+'ю' else|42:     if _Rnd<0.0286 then sss:=sss+'ш' else|41:     if _Rnd<0.038 then sss:=sss+'ж' else|42:     if _Rnd<0.0477 then sss:=sss+'х' else|42:     if _Rnd<0.0598 then sss:=sss+'й' else|42:     if _Rnd<0.0742 then sss:=sss+'ч' else|42:     if _Rnd<0.0901 then sss:=sss+'б' else|42:     if _Rnd<0.1066 then sss:=sss+'з' else|42:     if _Rnd<0.1236 then sss:=sss+'г' else|41:     if _Rnd<0.141 then sss:=sss+'ь' else|40:     if _Rnd<0.16 then sss:=sss+'ы' else|42:     if _Rnd<0.1801 then sss:=sss+'я' else|42:     if _Rnd<0.2063 then sss:=sss+'у' else|42:     if _Rnd<0.2344 then sss:=sss+'п' else|42:     if _Rnd<0.2642 then sss:=sss+'д' else|42:     if _Rnd<0.2963 then sss:=sss+'м' else|42:     if _Rnd<0.3312 then sss:=sss+'к' else|42:     if _Rnd<0.3752 then sss:=sss+'л' else|42:     if _Rnd<0.4206 then sss:=sss+'в' else|42:     if _Rnd<0.4679 then sss:=sss+'р' else|42:     if _Rnd<0.5226 then sss:=sss+'с' else|42:     if _Rnd<0.5852 then sss:=sss+'т' else|42:     if _Rnd<0.6522 then sss:=sss+'н' else|42:     if _Rnd<0.7257 then sss:=sss+'и' else|42:     if _Rnd<0.8058 then sss:=sss+'а' else|42:     if _Rnd<0.8903 then sss:=sss+'е' else|34:     if _Rnd<1 then sss:=sss+'о'; |9:     end;|25:  _hi_onEvent(onRes,sss);|4:END;|0:|0:|4:end.|
   link(onRes,6618333:doWork2,[])
  }
  Add(StrCat,4932759,308,42)
  {
   Point(doClear)
   link(Str1,10482501:Var3,[(314,33)(328,33)(328,82)])
  }
  Add(Hub,5754394,70,28)
  {
   link(onEvent1,13991857:doStart,[(193,34)(193,48)])
   link(onEvent2,5414593:doRandomize,[(95,41)(95,62)])
  }
  Add(DoData,12255931,308,98)
  {
   link(onEventData,12603670:doTrim,[])
   link(Data,10482501:Var2,[])
  }
  Add(GetDataEx,10482501,308,77)
  {
   link(Data,4932759:Result,[])
  }
  Add(Hub,5817580,203,91)
  {
   OutCount=3
   link(onEvent1,13322225:doData,[(242,97)(242,62)])
   link(onEvent2,12255931:doData,[])
   link(onEvent3,4932759:doClear,[(298,111)(298,55)])
  }
  Add(DoData,13322225,252,56)
  {
   Data=String(. )
   link(onEventData,6618333:doWork3,[(291,62)])
  }
  Add(HubEx,6618333,287,42)
  {
   link(onEvent,4932759:doStrCat,[])
  }
  Add(StrCase,5804702,406,98)
  {
   Type=3
   link(onModify,8714693:onEvent1,[(445,104)(445,34)])
  }
  Add(Trim,12603670,357,98)
  {
   Char=" "
   Mode=4
   link(onTrim,5804702:doModify,[])
  }
END_SDK
Add(Hub,12906994,189,91)
{
 link(onEvent1,5666363:doWork1,[])
 link(onEvent2,5666363:doWork2,[])
}
Add(Memory,14004434,224,49)
{
 Default=Integer(20)
}
Add(Hub,6144022,273,91)
{
 link(onEvent1,12163433:doAdd,[(452,97)(452,118)])
 link(onEvent2,16065848:doAdd,[(312,104)(312,111)])
}