#sha
Add(MainForm,2953706,21,105)
{
 Width=869
 Height=464
}
Add(Button,9160134,224,224)
{
 Left=5
 Top=15
 Caption="Load"
 Data=String(http://toropchin.com)
 link(onClick,9735267:doNavigate,[])
}
Add(WebBrowser,9735267,294,224)
{
 Left=5
 Top=40
 Width=845
 Height=155
 Point(doSavePage)
 Point(Handle)
 link(onStatus,8176606:doText,[])
 link(URL,13923109:Value,[])
}
Add(Memory,13923109,294,175)
{
 Default=String(http://mail.ru)
}
Add(Button,2149128,224,259)
{
 Left=65
 Top=15
 Caption="Save"
 Data=String(F:Мой проектАнализатор для оптимизаторов00.txt)
 link(onClick,9735267:doSavePage,[(275,265)(275,258)])
}
Add(Edit,8176606,350,238)
{
 Left=5
 Top=200
 Width=215
}
Add(BlockFind,6905883,413,399)
{
 Delete=0
 StartBlock="<"
 EndBlock=">"
 link(onEndSearch,11989516:doAdd,[])
}
Add(BlockFind,16665272,301,385)
{
 Delete=0
 StartBlock="<script"
 EndBlock="</script>"
 link(onEndSearch,9648004:doSearch,[])
 link(Text,9735267:Page,[])
}
Add(BlockFind,9648004,357,392)
{
 Delete=0
 StartBlock="<style"
 EndBlock="</style>"
 link(onEndSearch,6905883:doSearch,[])
}
Add(Button,3453212,224,385)
{
 Left=125
 Top=15
 Caption="TagDel"
 link(onClick,16665272:doSearch,[])
}
Add(Memo,11989516,483,406)
{
 Left=5
 Top=225
 Width=845
 Height=200
 ScrollBars=3
}

#pas
var
  Document: IHTMLDocument2;
begin
 Document := WB.Document as IHtmlDocument2;
 if Document < >  nil then
   Memo1.Text := (Document.all.Item(NULL, 0) as IHTMLElement).OuterHTML;