Как добавить данные в БД SQLite?

[SASFM]

Добрый день дорогие друзья. Помогите пожалуйста с решением проблемы. Хочу добавить данные в БД SQLite с помощью нижеуказанный код:

procedure TForm1.Button1Click(Sender: TObject);
begin
      FDQuery1.SQL.Text := 'INSERT INTO bazatable(kalima, sharh) VALUES (:kal, :sh)';
     FDQuery1.ParamByName('kal').AsString := 'школа';
     FDQuery1.ParamByName('sh').AsString := 'school';
     FDQuery1.ExecSQL;
end;

Но Delphi ругает и говорить что Database is locked
Вот сообщение об ошибке:

[SASFM]

Следующий код тоже не помог:

procedure TForm1.Button1Click(Sender: TObject);
begin
   FDConnection1.ExecSQL('insert into bazatable values("ROM", "Read Only Memory")');
end;

Скажите пожалуйста, что мне с этим сделать?

[SASFM]

Всем спасибо за помощь. . Проблема решена следующим образом:
При проектирование отключил FDQuery и FDConnection. (FDQuery1->Active=False FDConnection1->Connected=False), а потом в событие Form1.OnCreat активировал их следующим кодом:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FDQuery1.SQL.Text:='select * from bazatable ORDER BY KALIMA';
  FDQuery1.active:=true;
  FDConnection1.Connected:=true;
end;

[Аватар]

Connected:=true после active:=true лишен всякого смысла, он и так уже приконектился, иначе была бы ошибка на предыдущей команде. Активизация кверика инициализирует и соединение. Если уж коннектиться, то до всех выполнений запросов. А ошибка была в том, что доступ к базе монопольный и открыта была в делфи, а exe не мог открыть