Куда записывать указатели на функцию ?
type
TSQLite3_Open = function(filename: PAnsiChar; var DB: TSQLiteDB): integer; cdecl;
var
SQLite3_Open: TSQLite3_Open;
...
@SQLite3_Open := GetProcAddress(SQLiteDLLInstance, 'sqlite3_open');
if SQLite3_Open(PAnsiChar(AnsiString(FileName)), FDBInstance) <> SQLITE_OK then
Finally, the mainloop() method puts everything on the display, and responds to user input until the program terminates.