Add(MainForm,14842589,119,126)
{
 Left=20
 Top=105
 Width=319
 Height=343
 Caption="Example"
 Position=1
 link(onCreate,944731:doOpen,[])
}
Add(SQLite_Query,3749409,315,140)
{
 SQL="Select ico, color, id AS id_30__2, name AS name_100__2, tel, adr from tab1"
 link(onQuery,11790623:doMT_Add,[])
 link(onColumns,11790623:doMT_AddCols,[])
 link(dbHandle,2330233:Var3,[(321,128)(229,128)(229,184)])
}
Add(SQLite_DB,944731,182,140)
{
 FileName="test.db"
 link(onOpen,11526790:doWork2,[])
}
Add(StringTableMT,11790623,392,91)
{
 Width=311
 Height=268
 ColumnClick=1
 AllMT_AddCol=1
 ClearAll=0
 Flat=1
 TableWBreak=0
 Grid=0
 ColorItems=0
 ImgSize=48
 AssignedIList=0
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 Point(doAddColumn)
 Point(doSort)
 Point(onColumnClick)
 Point(doMT_Add)
 Point(doMT_AddCols)
 link(onColumnClick,11790623:doSort,[(436,104)(436,122)(380,122)(380,139)])
}
Add(Button,9628072,133,259)
{
 Left=10
 Top=280
 Caption="Insert"
 link(onClick,15037616:doEvent1,[])
}
Add(Hub,15037616,182,259)
{
 OutCount=4
 link(onEvent1,11790623:doClear,[(303,265)(303,104)])
 link(onEvent2,8297447:doQuery,[(268,272)(268,251)])
 link(onEvent3,10053100:doExec,[(331,279)(331,293)])
 link(onEvent4,11526790:doWork3,[(298,286)])
}
Add(SQLite_Exec,10053100,448,287)
{
 link(onError,10736360:doWork2,[])
 link(dbHandle,12427273:Var3,[(454,212)])
 link(SQL,2830688:FString,[])
}
Add(GetDataEx,2330233,175,175)
{
 link(Data,944731:dbHandle,[])
}
Add(Edit,1189168,546,287)
{
 Left=70
 Top=280
 Width=235
 Text=""
}
Add(HubEx,11526790,294,133)
{
 link(onEvent,3749409:doQuery,[])
}
Add(SQLite_Query,8297447,322,245)
{
 SQL="SELECT MAX(id) FROM tab1"
 link(onQuery,2830688:doString,[(404,251)(404,230)])
 link(onError,10736360:doWork3,[(508,265)])
 link(dbHandle,12427273:Var2,[])
}
Add(GetDataEx,12427273,315,203)
{
 Angle=3
 link(Data,2330233:Var2,[(188,212)])
}
Add(HubEx,10736360,504,280)
{
 link(onEvent,1189168:doText,[])
}
Add(FormatStr,2830688,455,224)
{
 DataCount=1
 Mask="INSERT INTO tab1 VALUES (%1+1,3, '#', 'nesco', '461594', 'Сочи');"
 Point(FString)
}

function callback(user:pointer; ncols:integer; values:ppchar; names:ppchar):integer; cdecl;
var dt,ndt:TData;
    s:PData;
    i:integer; 
begin
... 
   _hi_onEvent_(THISQLite_Query(user)._event_onQuery, dt);
... 
end;