Make(delphi)
ver(4.04 build 185)
Add(MainForm,10260068,434,287)
{
 Position=1
}
Add(Button,5314340,434,231)
{
 Left=30
 Top=25
 link(onClick,14748038:doFor,[])
}
Add(For,14748038,490,231)
{
 Start=1
 End=5
 link(onEvent,11415672:doFor,[])
 link(onStop,1381112:doSave,[(531,244)(531,328)])
}
Add(For,11415672,546,231)
{
 Start=1
 End=5
 link(onEvent,15954224:doStrCatDlm,[])
 link(onStop,2461211:doEvent1,[(588,244)(588,293)])
}
Add(StrCatDelim,15954224,602,231)
{
 Delimiter="."
 link(onStrCatDlm,6281828:doAdd,[])
 link(Str1,14748038:Position,[(608,214)(420,214)(420,277)(496,277)])
}
Add(Delete,1354492,721,287)
{
 Count=1
 Direction=1
 link(onDelete,1381112:doAdd,[])
}
Add(StrList,1381112,770,287)
{
 FileName="123.txt"
}
Add(Hub,2461211,623,287)
{
 link(onEvent1,1891819:doReplace,[])
 link(onEvent2,6281828:doClear,[(655,300)(655,244)])
}
Add(Replace,1891819,672,287)
{
 SubStr="\r\n"
 DestStr=";"
 link(onReplace,1354492:doDelete,[])
 link(Str,6281828:Text,[])
}
Add(StrList,6281828,672,231)
{
}