anchor.diff:      function ExecQuery(const SQL: string; const Params: array of TVarRec): TSQLiteUniTable; overload;
       function ExecSQL(): Boolean; overload;
       function ExecSQL(const SQL: string): Boolean; overload;
  +    function ExecSQL(var RowsAffected: Integer): Boolean; overload;
       function ExecSQL(const SQL: string; var RowsAffected: Integer): Boolean; overload;
       function ExecSQL(const SQL: string; const Params: array of TVarRec): Boolean; overload;
   
  
positive.code: begin
    if Value <> FSQL then
    begin
      FSQL := Value;
      if BindParameterCount > 0 then
      begin
  
negative.code:       ClearParams;
      end;
    end;
  end;
  
  function TSQLitePreparedStatement.ExecSQL(var RowsAffected: Integer): Boolean;
  begin
    Result := ExecSQL('', RowsAffected);
  end;
  
  function TSQLitePreparedStatement.ExecSQL(const SQL: string; var RowsAffected: Integer): Boolean;
  