anchor.diff:  begin
     if Value <> FSQL then
     begin
  +    if (FSQL <> '') and (Value = '') then
  +      Exit;
  +
       FSQL := Value;
       if BindParameterCount > 0 then
       begin
  
positive.code:       ClearParams;
      end;
    end;
  end;
  
  function TSQLitePreparedStatement.ExecSQL(const SQL: string; var RowsAffected: Integer): Boolean;
  
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;
  
  