static const char write_mode_transaction[] = "\
write\r\n\
concurrency\r\n\
no_rec_version\r\n\
nowait";

    static const char libname[]  = "fbclient.dll";
    static const char codepage[] = "WIN1251";
    static const char sql__select[] = "\
SELECT *\r\n\
  FROM MY_TABLE\r\n\
  WHERE NAME LIKE :TEMPLATE";

    Pfibdatabase::TpFIBDatabase     * db   = NULL;
    Pfibdatabase::TpFIBTransaction  * tran = NULL;
    Fibquery::TFIBQuery             * qry  = NULL;

    try
    {
      db = new Pfibdatabase::TpFIBDatabase(NULL);
      db->DBParams->Clear();

      db->LibraryName = libname;
      db->DBParams->BeginUpdate();
      db->DBParams->Add(AnsiString("user_name=") + User);      // const char * User
      db->DBParams->Add(AnsiString("password=") + Password);   // const char * Password
      db->DBParams->Add(AnsiString("lc_ctype=") + codepage);
      db->DBParams->EndUpdate();
      db->SQLDialect = 3;
      db->DBName = Database;                                   // const char * Database
      db->UseLoginPrompt = false;

      tran = new Pfibdatabase::TpFIBTransaction(NULL);
      tran->DefaultDatabase = db;
      tran->TRParams->Clear();
      tran->TRParams->Text = write_mode_transaction;
      db->Open();
      tran->StartTransaction();
      qry = Pfibcachequeries::GetQueryForUse(tran, sql__select);
      if (!qry->Prepared)
      {
        qry->Options << qoNoForceIsNull;
        qry->Options >> qoAutoCommit >> qoFreeHandleAfterExecute;
        qry->GoToFirstRecordOnExecute = true;
        qry->Prepare();
      }
      qry->ParamByName("TEMPLATE")->Value = "%";
      qry->ExecQuery();
      if (qry->AllRowsAffected.Selects)
        while (!qry->Eof)
        {
          .
          .
          .
          qry->Next();
        }
      qry->Close();
      Pfibcachequeries::FreeQueryForUse(qry);
      tran->Commit();
      db->Close();
    }
    catch (const Fib::EFIBError& x)
    {
      .
      .
      .
    }

    static const char write_mode_transaction[] = "\
write\r\n\
concurrency\r\n\
no_rec_version\r\n\
nowait";