Add(MainForm,2953706,112,105)
{
}
Add(StrList,11712649,182,105)
{
}
Add(ArrayEnum,3285010,196,175)
{
 link(onItem,8446930:doMTString,[])
 link(Array,11712649:Array,[])
}
Add(MT_String,8446930,252,161)
{
 Point(doMTString)
}

Add(MST_ColAction,5843139,119,105)
{
 Action=9
}

Add(MainForm,13127573,217,175)
{
 Width=970
 Height=632
 link(onCreate,16428629:doEvent1,[])
}
Add(SQLite_DB,7096009,350,189)
{
 FileName="elementsdelphielements.db"
 link(onOpen,16569659:doValue,[])
}
Add(GlobalVar,16569659,406,189)
{
 Name="dbHandle"
}
Add(GlobalVar,9211588,399,266)
{
 Name="dbHandle"
}
Add(SQLite_Query,6201095,399,294)
{
 SQL="SELECT * FROM elements ;"
 link(onQuery,3664807:doAddRow,[])
 link(onColumns,3664807:doAddCols,[])
 link(dbHandle,9211588:Var,[])
}
Add(Hub,8199579,350,238)
{
 OutCount=4
 link(onEvent2,5639258:doClear,[])
 link(onEvent3,6201095:doQuery,[(377,258)(377,300)])
 link(onEvent4,11095608:doFor,[(373,265)(373,363)])
}
Add(Hub,16428629,322,189)
{
 link(onEvent1,7096009:doOpen,[])
 link(onEvent2,8199579:doEvent1,[(340,202)(340,244)])
}
Add(MTStrTbl,4694401,490,189)
{
 Left=670
 Top=495
 Align=5
 Font=[Courier,8,0,0,204]
 Name="tab"
 ColDelimiter="$"
 Grid=0
}
Add(MST_Clear,5639258,490,245)
{
 ClearAll=0
 MSTControl="tab"
}
Add(MST_DB,3664807,490,294)
{
 MSTControl="tab"
}
Add(MST_ColAction,15735357,490,357)
{
 Action=9
 MSTControl="tab"
}
Add(For,11095608,399,357)
{
 IncludeEnd=1
 link(onEvent,15735357:doColAction,[])
 link(End,15735357:CountCol,[(412,345)(454,345)(454,401)(496,401)])
}