anchor.diff:        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;
  
positive.code: begin
    if Value <> FSQL then
    begin
      FSQL := Value;
      if BindParameterCount > 0 then
      begin
  
negative.code:     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;
  
  