Make(delphi)
Add(MainForm,8213990,21,105)
{
 Left=20
 Top=105
 Width=255
 Height=592
 Position=1
 link(onCreate,9024628:doWork1,[])
}
Add(ChildScrollBox,9024628,217,140)
{
}
BEGIN_SDK
  Add(EditMulti,13728872,21,21)
  {
   WorkCount=2
   VarCount=2
   Width=629
   Height=557
   link(doWork1,810105:doEnum,[(101,27)(101,251)])
   link(doWork2,3429907:doEvent1,[(45,34)(45,314)])
   link(Var1,14380101:Value,[(27,504)(265,504)])
   link(Var2,11846267:Array,[(34,518)(482,518)])
  }
  Add(ScrollBox,15826180,35,105)
  {
   Width=247
   Height=531
   Align=5
   Ctl3D=1
   Point(doVisible)
  }
  Add(ChildPanelEx,13178393,287,245)
  {
   Mode=1
  }
  BEGIN_SDK
    Add(EditMultiEx,7037567,21,21)
    {
     WorkCount=#5:##add|8:##select|
     VarCount=#4:Text|
     Point(##add)
     Point(##select)
     link(##add,9948442:doStrCat,[(59,27)(59,55)])
     link(Text,6855139:Text,[(27,193)(104,193)])
    }
    Add(Panel,6327808,238,84)
    {
     Width=392
     Height=41
     Align=2
     Point(doColor)
    }
    Add(Label,10848982,175,49)
    {
     Left=2
     Top=2
     Width=946
     Align=2
    }
    Add(Edit,6855139,98,133)
    {
     Left=2
     Top=17
     Width=388
     Height=22
     Align=5
     Text="Жмых"
    }
    Add(StrCat,9948442,98,49)
    {
     Str2=":"
     link(onStrCat,10848982:doText,[])
    }
  END_SDK
  Add(StrList,9533306,168,119)
  {
   Strings=#8:Твоё имя|8:Возвраст|9:Профессия|21:У меня часто ломается|20:Любимая детская игра|15:Бытовой предмет|20:Каково после пьянки?|15:Что любят мухи?|19:Во сколько ложишься|9:Предатель|19:Чего тебе хочеться?|22:Чего нехватает в доме?|19:Что бывает красным?|18:Любое ругательство|11:Имя питомца|11:Я прячусь в|18:Напиши любую фразу|18:Любимая часть тела|22:Упала наковальня, тебе|19:Нехороший человек..|
   MakeExt(Strings,,Вопросы)
  }
  Add(ArrayEnum,810105,182,245)
  {
   link(onItem,13178393:##add,[])
   link(Array,9533306:Array,[])
  }
  Add(For,6216158,133,322)
  {
   IncludeEnd=1
   onBreakEnable=0
   Point(onBreak)
   link(onEvent,9144089:doEvent1,[])
   link(onStop,15473184:doWork1,[(181,335)(181,405)])
   link(End,9533306:Count,[(146,243)(181,243)])
   link(onBreak,15473184:doWork2,[(181,342)(181,412)])
  }
  Add(Trim,12166289,287,336)
  {
   link(onTrim,4831610:doCase,[])
   link(Text,13178393:Text,[])
  }
  Add(Hub,9144089,196,322)
  {
   link(onEvent1,13178393:##select,[(258,328)(258,258)])
   link(onEvent2,12166289:doTrim,[(258,335)(258,342)])
  }
  Add(ChanelToIndex,15473184,196,399)
  {
   link(onIndex,14380101:doValue,[])
  }
  Add(Memory,14380101,259,399)
  {
  }
  Add(Hub,3429907,56,308)
  {
   link(onEvent1,11846267:doClear,[])
   link(onEvent2,6216158:doFor,[(110,321)(110,328)])
  }
  Add(StrList,11846267,462,301)
  {
  }
  Add(Case,4831610,371,336)
  {
   Value=String()
   link(onNextCase,11846267:doAdd,[(439,342)(439,307)])
   link(onTrue,6216158:doStop,[(423,349)(423,378)(121,378)(121,335)])
  }
END_SDK
Add(ChildPanel,3641818,84,273)
{
 link(onEvent1,540488:doEvent1,[])
}
BEGIN_SDK
  Add(EditMulti,15377703,21,21)
  {
   EventCount=1
  }
  Add(Panel,9354706,35,105)
  {
   Top=531
   Width=247
   Height=32
   Align=4
   BevelInner=0
   Point(doColor)
  }
  Add(Button,2507146,182,112)
  {
   Left=100
   Top=5
   link(onClick,15377703:onEvent1,[(268,118)(268,27)])
  }
END_SDK
Add(Memory,10747577,693,287)
{
 Default=String(Здравствуй Дедушка Мороз ! Меня зовут %1.)
}
Add(Replace,8905546,525,287)
{
 link(onReplace,2973521:doWork2,[])
 link(Str,6463243:Var1,[(531,275)(567,275)(567,373)])
 link(Dest,7324075:Item,[(545,275)(444,275)(444,344)(342,344)])
}
Add(StrCat,11726713,462,287)
{
 Str1="%"
 link(onStrCat,8905546:doReplace,[])
}
Add(Hub,540488,147,273)
{
 OutCount=3
 link(onEvent1,9024628:doWork2,[(195,279)(195,153)])
 link(onEvent2,8753614:In,[(209,286)(209,258)])
 link(onEvent3,15968254:doCompare,[])
}
Add(ArrayEnum,7324075,336,287)
{
 Type=1
 link(onItem,10461701:doOperation,[])
 link(onEndEnum,16081841:doData,[(391,300)(391,419)])
 link(Array,9024628:Var2,[(342,229)(230,229)])
}
Add(If_else,15968254,217,287)
{
 Op2=Integer(0)
 link(onTrue,7324075:doEnum,[])
 link(onFalse,14712447:doMessage,[])
 link(Op1,9024628:Var1,[])
}
Add(Message,14712447,280,294)
{
 Message="Заполните ВСЕ поля!!!"
}
Add(Math,10461701,399,287)
{
 Op2=1
 ResultType=0
 link(onResult,11726713:doStrCat,[])
 link(Op1,7324075:Index,[(405,275)(377,275)(377,331)(349,331)])
}
Add(ChildForm,5109559,756,413)
{
}
BEGIN_SDK
  Add(EditMulti,15340280,21,21)
  {
   WorkCount=1
   link(doWork1,6203915:doEvent1,[(39,27)(39,118)])
  }
  Add(MainForm,15002239,154,63)
  {
   Left=35
   Top=105
   Width=643
   Height=496
   Caption="Письмо деду морозу"
   Visible=1
   Point(doVisible)
  }
  Add(Memo,7322162,217,140)
  {
   Width=635
   Height=462
   Align=5
   ScrollBars=2
  }
  Add(Hub,6203915,56,112)
  {
   link(onEvent1,15002239:doVisible,[(121,118)(121,97)])
   link(onEvent2,7322162:doText,[(152,125)(152,167)])
  }
END_SDK
Add(DoData,16081841,693,413)
{
 link(onEventData,5109559:doWork1,[])
 link(Data,6463243:Var2,[])
}
Add(GetDataEx,6463243,686,364)
{
 link(Data,10747577:Value,[])
}
Add(StrList,9953954,630,147)
{
 Strings=#41:Здравствуй Дедушка Мороз ! Меня зовут %1.|1133:Мне %2! Не много не мало, но я верю и надеюсь в то, что ты есть и сейчас читаешь моё письмо. Моя мама очень злая тётя. Она не разрешает писать мне письма тебе, и поэтому я сижу в %3 и пишу это письмо. Мама выпускает меня гулять только до %4. Когда я её не слушаюсь, она бросает в меня %5 и частенько попадает мне прямо в %6 =( Однажды я не вытерпел и сказал ей: "%7". Мой папа работает %8ом и приходя с работы с плохим настроением, он кричит: "%9" И заставляет меня чинить его %10. Но я не умею ничего ремонтировать, и поэтому у меня получается %11. Он злится ещё сильнее, и запрещает мне играть в %12 с друзьями. Ещё папа придумал мне кличку, и зовёт меня не %1, а %13 ! Это очень обидно. В общем, дедушка мороз, если ты не %14, то ты поймёшь как мне плохо. Дорогой Дедушка мороз - красный %15 забери меня к себе или вышли мне %5. Ещё сделай так, что бы близкие мне люди любили меня и почаще давали мне денег на %16. Любимый дед мороз, ты мой последний шанс. Я надеюсь на новый год я найду под ёлочкой %17. Дед Мороз, пойми как мне %19. Если ты не прочтёшь это письмо или оно не дойдёт до тебя, мне %18. Помни что я верю в тебя %20!|0:|16:Деду Морозу ! %1|
}
Add(DoData,7801526,630,294)
{
 link(onEventData,2973521:doWork3,[(676,300)])
 link(Data,9953954:Text,[])
}
Add(LineBreak,4243147,574,294)
{
 link(Out,7801526:doData,[])
 Primary=[8753614,-336,-42]
}
Add(HubEx,2973521,672,280)
{
 link(onEvent,10747577:doValue,[])
}