procedure THISQLite_QueryScalar._work_doQuery;
var dt:TData;
    id:pointer;
    mes:PChar;
    s:string;
begin
   dt := ReadData(_Data,_data_dbHandle,nil);
//   s := ReadString(_Data,_data_SQL,_prop_SQL);   Вот эти две строки я бы перенес за IF
//   id := ToObject(dt);
   if _IsObject(dt,SQLite_GUID) then
    begin
      FResult := ';
      s := ReadString(_Data,_data_SQL,_prop_SQL);     // <--- Вот сюда.
      id := ToObject(dt);
      sqlite3_exec(id,PChar(s), callback, self, @mes);
      if mes <> ' then
        _hi_onEvent(_event_onError, string(mes))
      else
        _hi_onEvent(_event_onQuery, FResult);
    end;
end;