------------ Дoбавленo в 17.51:
демонстрирую на схеме Ex_

Add(MainForm,4009607,98,154)
{
}
Add(CryptBlowfish,12612059,364,140)
{
Password="hiasm"
Point(doPackStream)
Point(doUnpackStream)
Point(onStream)
link(onStream,10976901:doConvert,[])
}
Add(Edit,13064901,273,105)
{
Left=10
Top=10
Width=185
Text="What"
}
Add(Edit,3831243,462,147)
{
Left=10
Top=30
Width=185
Text="Result"
}
Add(Button,2135341,161,154)
{
Left=10
Top=50
Width=360
Caption="do"
link(onClick,4568973:doConvert,[])
}
Add(RadioButton,8600425,217,105)
{
Left=205
Top=10
Width=165
Selected=0
Caption="crypt"
}
Add(RadioButton,5503292,98,189)
{
Left=205
Top=30
Width=165
Caption="decrypt"
}
Add(Convertor,4568973,273,154)
{
Mode=12
link(onResult,12612059:doPackStream,[])
link(Data,3825838:Var2,[])
}
Add(If_else,11758888,217,154)
{
Op2=Integer(1)
link(onFalse,15874259:doConvert,[(261,167)(261,202)])
link(Op1,8600425:Selected,[])
}
Add(Convertor,15874259,308,196)
{
Mode=12
link(onResult,12612059:doUnpackStream,[(352,202)(352,167)])
link(Data,3825838:Var3,[(314,145)])
}
Add(GetDataEx,3825838,273,140)
{
link(Data,13064901:Text,[])
}
Add(StreamConvertor,10976901,413,147)
{
link(onResult,3831243:doText,[])
}