Motorola MC3090 – jak połączyć się z SQLite?

procedure TForm1.Button1Click(Sender: TObject);
begin
    //SQLiteLibraryName:='sqlite3.dll'; // zmienilem z sqlite3ce.dll na sqlite3.dll
    Connect.DatabaseName := 'demo.db';
    Connect.Connected := True;
    //
    try
    SqlQuery1.Close;
    SQLQuery1.Clear;
    SqlQuery1.SQL.Add('create table nowa_tabela (ID integer Primary Key, NAME varchar(40))');
    SqlQuery1.ExecSQL;
    finally
    SqlQuery1.Close;
    end;
end;

TApplication.HandleException Transaction not set
  Stack trace:
  $001BCC44
  $001B54A0
  $0015C1D4
  $0017F09C
  $0017F940
  $0017EF6C
  $00020230

TApplication.HandleException Connect1 : no such table: pessoas [tak mam nazwaną tablice]
  Stack trace:
  $001B3690
  $001B132C
  $001B1F70
  $001B5F94
  $001B5E04
  $0015C2B4
  $0017F17C
  $0017FA20
  $0017F04C
  $00020230

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, sqlite3conn, sqldb, FileUtil, Forms, Controls, Graphics,
  Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Connect1: TSQLite3Connection;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    SQLQuery1: TSQLQuery;
    SQLTransaction1: TSQLTransaction;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.frm}

{ TForm1 }

procedure TForm1.Button2Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //SQLiteLibraryName := 'sqlite3.7.16.1-arm4.dll';
  SetBounds(0,22,Screen.Width,Screen.Height);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Connect1.DatabaseName:='\\demo.db';
  try
   SQLiteLibraryName := 'sqlite3.dll';
   label3.Caption:= 'dll ok';
  except
   Label3.caption := 'nie zaladowało biblioteki';
  end;


  Connect1.Connected := True;
  try

    Connect1.Open;
    SQLTransaction1.Active := True;
    Connect1.ExecuteDirect('insert into pessoas("id", "nome") values (6, "test6");');
    SQLTransaction1.Commit;
      Label2.Caption := 'działa';
  {  SQLQuery1.Close;
    SQLQuery1.Clear;
    //SQLQuery1.SQL.Add('create table nowa_tabela (ID integer Primary Key, NAME varchar(40))');
    SQLQuery1.SQL.Add('select * from pessoas');

    SQLQuery1.ExecSQL;  }
  except
    // SQLQuery1.Close;
   on E: EInOutError do
    Label2.Caption := e.Message;
  end;
end;

end. 

TApplication.HandleException Connect1 : no such table: pessoas

    try
        //SQLiteLibraryName := 'sqlite3ce.dll';
        //SQLiteDefaultLibrary := 'sqlite3win.dll'
        Connect1.DatabaseName:= 'demo.db';
        Connect1.Connected:= True;
        SQLQuery1.SQL.Clear;
        SQLQuery1.SQL.Add('insert into pessoas(id, nome) values (:id_e, :name_e)');
        SQLQuery1.Params.paramByName('id_e').AsString := Edit1.Text;
        SQLQuery1.Params.paramByName('name_e').AsString := Edit2.Text;
        SQLQuery1.ExecSQL;
       //     SQLTrans1.Active:= True;
        SQLTrans1.Commit;

        SQLQuery1.Close;
  except
   //Label3.caption := 'nie zaladowało biblioteki';
       on E: EInOutError do
    Label2.Caption := e.Message;
  end; 

  try
    SQLDBLibraryLoader1.ConnectionType:= 'SQLite3';
     SQLDBLibraryLoader1.LibraryName:= 'sqlite3.dll';
    SQLDBLibraryLoader1.Enabled:= True;
  except
    Label1.Caption:= 'biblioteka sqlite3.dll nie załadowana';
  end;

if FileExists('bazatest.db') Then
  begin
      Connect1.DatabaseName:= 'bazatest.db';
      Connect1.Connected:= True;
      SQLQuery1.SQL.Clear;
      if FileExists('bazatest.db') then
         begin

            SQLQuery1.SQL.Clear;
            SQLQuery1.SQL.Add('insert into nuser(id, imie) values (:id_e, :name_e)');
            SQLQuery1.Params.paramByName('id_e').AsString := Edit1.Text;
            SQLQuery1.Params.paramByName('name_e').AsString := Edit2.Text;
            SQLQuery1.ExecSQL;
            SQLTrans1.Active:= True;
            SQLTrans1.Commit;

            SQLQuery1.Close;

         end;
  end else ...

SQLite3Connection1.DatabaseName := ExtractFilePath(Application.ExeName) + 'test.db';