...
Base: TSQLiteDatabase;
Table: TSQLiteUniTable;
Stmt: TSQLitePreparedStatement;
...
procedure TForm1.FormCreate(Sender: TObject);
var Rows: integer;
begin
  Base := TSQLiteDatabase.Create(ExtractFilePath(Application.ExeName) +
    'TestSQlite.db');
  Stmt := Base.GetPreparedStatement('drop table if exists temp.Table1; select count(id) FROM Table2;');
  Table:=Stmt.ExecQuery();
  ...
end;