Database table is locked

type
TState = (sMany, sOne);
TCell = class
 
    private
    Fcolor: TColor;     //оригинал
    FSimName: string;
    FConn: TfdConnection;
    Fquery: TfdQuery;
    FSimilar: TColor;   //похожий цвет из базы данных
    FState: TState;    //состояние
    procedure SetColor(const Value: TColor);
    procedure SetState(const Value: TState);
 
    public
    property Color:TColor read FColor write SetColor;
    property Similar:TColor read FSimilar;
    property State: TState write SetState;
    property Query: TFdQuery read FQuery;
    constructor Create;
  end;
implementation
 
 
{ TCell }
constructor TCell.Create;
begin
  Fconn:=TFDConnection.Create(Application);
  Fconn.Params.Clear;
  Fconn.Params.Add('Database='+ ExtractFilePath(ParamStr(0)) + 'listofColorsExt.db');
  FConn.Params.Add('DriverID=SQLite');
  Fconn.Connected:=true;
  fquery:=tfdquery.Create(application);
  fquery.Connection:=fconn;
end;
 
procedure TCell.SetColor(const Value: TColor);
var r,g,b: integer;  s:string;
begin
  FColor := Value;
  r:=GetRValue(FColor);
  g:=GetGValue(FColor);
  b:=GetBValue(FColor);
  with FQuery do
  begin
    SQL.Text:=Format('update colors set s=(%d-r)*(%d-r)+(%d-g)*(%d-g)+(%d-b)*(%d-b)',[r,r,g,g,b,b]);
    ExecSQL;
    SetState(sOne);
    FSimilar:=RGB(fields[4].AsInteger,fields[5].AsInteger,fields[6].AsInteger);
    FSimName:=fields[3].AsString;
    active:=false;      //как только нашел похожий цвет - тут же отключайся.
  end;
end;
 
procedure TCell.SetState(const Value: TState);
begin
  FState:=value;
  with FQuery do
  begin
    SQL.Clear;
    if value=sOne then
    begin
      SQL.Add('select * from colors where s=(select min(s) from colors) ');
    end else
      SQL.Add('select * from colors ');
    Open;
  end;
end;

constructor TPopupForm.Create(owner: Tcomponent; cell: TCell);
begin
    inherited Create(owner);
    FCell:=cell;
end;
 
procedure TPopupForm.FormCreate(Sender: TObject);
begin
  Fcell.state:=smany;
  DataSource.dataset:=Fcell.query;
  dbtext1.DataField:='name';

with FQuery do
 begin
   CLose; // <<== Вот это добавьте
   SQL.Clear;
...