Как вариант:
Add(MainForm,2953706,133,56)
{
Height=593
}
Add(TreeView,10641460,196,70)
{
Left=24
Top=4
Width=325
Height=532
Font=[MS Sans Serif,10,0,0,1]
Name="tree1"
Strings=#7:Питание|1:(|8:Продукты|14:Кафе, ресторан|1:)|9:Транспорт|1:(|7:Топливо|10:Ремонт а/м|22:Общественный транспорт|1:)|16:Платежи и налоги|1:(|20:Коммунальные платежи|24:Налоги, сборы, страховки|13:Пожертвования|1:)|4:Дети|1:(|18:Кружки, муз. школа|8:Гимназия|16:Школьное питание|17:Карманные расходы|1:)|15:Бытовые расходы|1:(|13:Одежда, обувь|9:Лекарства|25:Мебель, инструменты и др.|7:Питомцы|7:Подарки|22:Прочие бытовые расходы|1:)|
FileName="C:\Kuhnya2\Spisok1.txt"
Icons=[]
Point(Index)
link(onClick,12713444:doExec,[])
}
Add(RE_Search,12713444,259,77)
{
Expression="^(0|3|7|11|16)"
link(onNotFound,14850461:doEvent,[])
link(SourceStr,10641460:Index,[(265,65)(241,65)(241,120)(216,120)])
}
Add(Debug,14850461,315,84)
{
}