Add(MainForm,19160,84,154)
{
 Left=21
 Top=105
 Width=402
 Height=338
 Font=[Arial,8,0,0,1]
 Caption="Пример POP3"
}
Add(Button,87804,84,63)
{
 Left=10
 Top=10
 Font=[Arial,8,0,0,1]
 Caption="Connect"
 link(onClick,34270:doConnect,[(135,69)(135,104)])
}
Add(Memo,37677,273,147)
{
 Left=10
 Top=35
 Width=370
 Height=100
 Font=[Arial,8,0,0,1]
 ScrollBars=3
}
Add(POP3,34270,154,98)
{
 Server="pop.yandex.ru."
 Point(onError)
 link(onConnect,1969106:doStrCat,[])
 link(onRead,14704815:doEvent1,[(205,111)(205,174)])
 link(onError,8367749:doMessage,[])
}
Add(Label,2225581,329,98)
{
 Left=145
 Top=15
 Caption="Count:"
}
Add(Button,24970,84,105)
{
 Left=70
 Top=10
 Font=[Arial,8,0,0,1]
 Caption="Read"
 Data=Integer(1)
 link(onClick,34270:doRead,[])
}
Add(StrCat,1969106,273,98)
{
 Str1="Count: "
 link(onStrCat,2225581:doText,[])
}
Add(POP3_Parse,2707666,273,217)
{
 link(onParse,3815528:doValue,[])
}
Add(Edit,9890082,273,280)
{
 Left=10
 Top=145
 Width=155
 link(Str,2707666:From,[])
}
Add(Edit,814934,280,329)
{
 Left=175
 Top=145
 Width=165
 link(Str,2707666:Subject,[])
}
Add(Memo,9723279,336,357)
{
 Left=10
 Top=170
 Width=365
 Height=135
 ScrollBars=3
}
Add(Hub,14704815,217,168)
{
 OutCount=4
 link(onEvent1,37677:doText,[])
 link(onEvent2,2707666:doParse,[(264,181)(264,223)])
 link(onEvent3,2378853:doEvent1,[(243,188)(243,239)(184,239)(184,286)])
}
Add(Hub,2378853,196,280)
{
 OutCount=3
 link(onEvent1,9890082:doText,[])
 link(onEvent2,814934:doText,[(254,293)(254,335)])
 link(onEvent3,15676420:doData,[(236,300)(236,384)])
}
Add(DoData,15676420,287,378)
{
 link(onEventData,9723279:doText,[])
 link(Data,2707666:Text,[])
}
Add(FileStream,14014400,539,203)
{
 Mode=1
 AutoCopy=0
 Point(doCopyFromStream)
 link(FileName,14460775:Value,[(545,191)(590,191)(590,273)(440,273)])
}
Add(DoData,89292,490,217)
{
 link(onEventData,14014400:doCopyFromStream,[])
 link(Data,2707666:Attach,[(496,195)(321,195)(321,263)(300,263)])
}
Add(Message,8367749,224,112)
{
}
Add(SDialog,2998783,385,217)
{
 Title="Open Dialog"
 Point(FileName)
 link(onExecute,14460775:doValue,[])
 link(FileName,3815528:Value,[(391,205)(404,205)(404,261)(342,261)])
}
Add(Memory,3815528,336,217)
{
 link(onData,2998783:doExecute,[])
}
Add(Memory,14460775,434,217)
{
 link(onData,89292:doData,[])
}