anchor.diff:    var
       i : integer;
     begin
  +    TraceSQL(SQL.Text);
       CreateImplementation;
       PrepareIfNecessary;
       for i := 0 to FParameters.Count -1 do
  
positive.code:     FImplementation.Rollback;
    end;
  
  end.
  
negative.code:   var
      i : integer;
    begin
      TraceSQL(SQL.Text);
      CreateImplementation;
      PrepareIfNecessary;
      for i := 0 to FParameters.Count -1 do
  