Вот:
[code:1] Add(MainForm,7636549,-8,140)
{
Left=20
Top=105
link(onCreate,11527587:doData,[])
}
Add(FileTools,466377,90,154)
{
link(onEnd,8517690:doCase,[])
}
Add(DoData,11527587,41,175)
{
Data=String(c:\555.txt)
link(onEventData,466377:doFileExists,[(88,181)(60,181)])
}
Add(Case,8517690,146,154)
{
Value=Integer(1)
link(onTrue,8832064:doEvent1,[])
}
Add(SMTP,3309009,237,224)
{
Server=""
Subject="555.txt"
link(onSend,7955857:doEvent1,[(294,230)(294,223)])
link(onStatus,10975674:doEvent1,[(294,237)(294,258)])
link(Body,10792516:Value,[(271,212)(355,212)])
}
Add(FileStream,11039993,244,161)
{
FileName="c:\555.txt"
link(onLoad,15588259:doConvert,[])
}
Add(Convertor,15588259,300,161)
{
Mode=11
link(onResult,10792516:doValue,[])
link(Data,11039993:Stream,[(306,151)(288,151)(288,203)(250,203)])
}
Add(Memory,10792516,349,161)
{
link(onData,11039993:doClose,[(391,167)(391,151)(234,151)(234,174)])
}
Add(Hub,8832064,188,161)
{
link(onEvent1,11039993:doOpen,[])
link(onEvent2,3309009:doSend,[(224,174)(224,230)])
}
Add(HubEx,3638672,503,252)
{
link(onEvent,11905746:doProcessMessages,[(518,265)(518,272)])
}
Add(Memo,4771154,636,238)
{
Top=45
Width=195
Height=195
ScrollBars=3
}
Add(StrCat,14673886,573,224)
{
Str1="Result: "
link(onStrCat,1190450:doWork1,[(612,230)])
}
Add(HubEx,1190450,608,231)
{
link(onEvent,4771154:doAdd,[])
}
Add(Hub,10975674,314,252)
{
link(onEvent1,1190450:doWork2,[(537,258)(537,244)])
link(onEvent2,3638672:doWork2,[])
}
Add(Application,11905746,573,266)
{
}
Add(IndexToChanel,9871759,363,217)
{
link(onEvent1,12243279:doData,[(417,223)(417,202)])
link(onEvent2,12880275:doData,[(417,230)(417,244)])
}
Add(DoData,12880275,440,238)
{
Data=String(OK)
link(onEventData,13534767:doEvent2,[(484,244)(484,223)])
}
Add(DoData,12243279,440,196)
{
Data=String(FAIL)
link(onEventData,13534767:doEvent1,[(484,202)(484,216)])
}
Add(Hub,13534767,496,210)
{
InCount=2
OutCount=1
link(onEvent1,14673886:doStrCat,[(550,216)(550,230)])
}
Add(Hub,7955857,314,217)
{
link(onEvent1,9871759:doEvent,[])
link(onEvent2,3638672:doWork1,[(507,230)])
}
[/code:1]

Для того, чтобы программа работала, надо заполнить свойства у компонента SMTP