Add(MainForm,1750196,21,126)
{
 Left=20
 Top=105
 Height=58
 Caption="Дата и текущее время"
 BorderStyle=3
}
Add(Time,2074498,126,98)
{
 Format="W D.M.Y  h:m:s"
}
Add(Timer,14919549,70,140)
{
 link(onTimer,5760282:doText,[])
}
Add(Label,5760282,126,140)
{
 Width=394
 Height=33
 Align=5
 Font=[Century Gothic,26,1,10789024,0]
 Caption=""
 Alignment=2
 link(Text,2074498:FormatTime,[])
}

Add(MainForm,1750196,28,63)
{
 Left=20
 Top=105
 Height=112
 Caption="Дата и текущее время"
 BorderStyle=3
 link(onCreate,10696711:doWork1,[(77,104)])
}
Add(InlineCode,15507388,105,130)
{
 WorkPoints=#7:doWrite|
 EventPoints=#8:onString|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,Windows,NetTimer;|0:|7:  const|95:      Weak : array[0..6] of string  = ('воскресенье','понедельник','вторник','среда','четверг',|60:                                       'пятница','суббота');|96:      Month : array[1..12] of string = ('января','февраля','марта','апреля','мая','июня','июля',|91:                                        'августа','сентября','октября','ноября','декабря');|0:|0:|4:type|28: THiAsmClass = class(TDebug)|0:|10:   private|9:   public|0:|22:   onString:THi_Event;|0:|50:   procedure doWrite(var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.doWrite;|32:var str,hh,mm,ss,w,d,m,y:string;|27:var SystemTime:TSystemTime;|5:begin|27:  GetLocalTime(SystemTime);|32:  hh:=Int2Str(SystemTime.wHour);|37:  mm:=Int2Digs(SystemTime.wMinute,2);|37:  ss:=Int2Digs(SystemTime.wSecond,2);|33:  w:=Weak[SystemTime.wDayOfWeek];|30:  d:=Int2Str(SystemTime.wDay);|30:  m:=Month[SystemTime.wMonth];|31:  y:=Int2Str(SystemTime.wYear);|92:  Str:='Сегодня ' + w + ', ' + d + ' ' + m + ' ' + y + ' года, ' + hh + ':' + mm + ':' + ss;|28:  _hi_onEvent(onString,Str);|4:end;|0:|4:end.|
 link(onString,1687982:doText,[])
}
Add(Timer,14919549,28,130)
{
 link(onTimer,10696711:doWork2,[])
}
Add(HubEx,10696711,73,123)
{
 link(onEvent,15507388:doWrite,[])
}
Add(Label,1687982,161,130)
{
 Left=20
 Top=10
}