Add(MainForm,2953706,308,168)
{
 Width=871
 Height=356
}
Add(WebBrowser,10900816,392,175)
{
 Left=10
 Top=10
 Width=840
 Height=250
 URL="http://yandex.ru/yandsearch?text=%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D1%8B%20%D0%B4%D0%BB%D1%8F%20%D1%81%D0%BE%D0%BA%D1%80%D1%8B%D1%82%D0%B8%D1%8F%20%D0%B8%D0%BD%D1%84%D0%BE%D1%80%D0%BC%D0%B0%D1%86%D0%B8%D0%B8& lr=43& suggest_reqid=132864170142410807206135501858023& csg=0%2C0%2C0%2C0%2C0%2C1%2C0"
 Point(PHandle)
}
Add(Button,9682091,343,238)
{
 Left=405
 Top=280
 link(onClick,4881792:doClick ,[])
}
Add(InlineCode,4881792,406,238)
{
 WorkPoints=#8:doClick |
 EventPoints=#7:onError|5:onURL|
 DataPoints=#2:ph|5:value|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug,ActiveX,KOLSHDocVw;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|18:    ph: THI_Event;|21:    value: THI_Event;|23:    onError: THI_Event;|21:    onUrl: THI_Event;|4:    |51:    procedure doClick(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|0:|4:type|31:  TKOLWebBrowser = PWebBrowser;|31:  PKOLWebBrowser = PWebBrowser;|0:|0:|0:|30:procedure THiAsmClass.doClick;|3:var|15:  pc: PControl;|12:  s: string;|13:  n: integer;|5:begin|37:  pc := PControl(ToIntegerEvent(ph));|33:  if not Assigned(pc) then exit; |74:  for n:= 0 to PKOLWebBrowser(pc).OleObject.Document.links.Length - 1 do  |8:   begin|73:     s:= PKOLWebBrowser(pc).OleObject.Document.links.Item(n).InnerText;  |42:     if s = ReadString(_Data, value) then |97:       _hi_onEvent(onUrl, String(PKOLWebBrowser(pc).OleObject.Document.links.Item(n).outerHTML));|7:   end;|39:  //PKOLWebBrowser(pc).Navigate(mylnk);|4:end;|0:|4:end.|
 link(onURL,3198697:doSearch,[])
 link(ph,10900816:PHandle,[])
 link(value,10674332:Value,[(419,222)(447,222)])
}
Add(Message,7979610,567,245)
{
}
Add(BlockFind,3198697,462,245)
{
 IncludeBlock=1
 StartBlock="(this, 
 EndBlock=)"
 link(onSearch,10248060:doStrCat,[])
}
Add(StrCat,10248060,518,245)
{
 Str1="http:"
 link(onStrCat,7979610:doMessage,[])
}
Add(Memory,10674332,441,175)
{
 Default=String(juk-soft.ru)
}