AlexKir, ну ты наворотил, блин...
Вроде большенький уже

То, чего ты сделал, делается вдвое проще:
[code:1]Add(Memo,1916140,371,56) {
Left=5
Top=60
Width=645
Height=330
Color=0
Font=[Terminal,8,1,65280,255]
FileName="TMP.CON"
ScrollBars=2
}
Add(WinExec,2216452,308,70)
{
Point(doConsoleExec)
Point(onConsoleResult)
link(onConsoleResult,1916140:doText,[])
}
Add(FormatStr,15278076,245,84)
{
Mask="ROUTE %1 %2"
link(onFString,2216452:doConsoleExec,[])
link(Str1,9672357:Text,[(251,72)(195,72)])
link(Str2,7807507:Text,[])
}
Add(Edit,7807507,252,28)
{
Left=320
Top=10
Width=280
Text=""
}
Add(Button,3226641,189,84)
{
Left=5
Top=35
Caption="Ione"
link(onClick,15278076:doString,[])
}
Add(Edit,9672357,189,28)
{
Left=10
Top=10
Width=290
Text="PRINT "
}[/code:1]
И без мерзких напрягов XP запустить DOS