anchor.diff:      FImplementation.Rollback;
     end;
   
  +initialization
  +  _LastSQLScript := '';
  +  _LastSQLScriptCriticalSection := TCriticalSection.Create;
  +  RegisterExceptionLogTracer(GetLastSQLScript);
  +
  +finalization
  +  _LastSQLScriptCriticalSection.Free;
  +
   end.
  
positive.code:   var
      i : integer;
    begin
      CreateImplementation;
      PrepareIfNecessary;
      for i := 0 to FParameters.Count -1 do
  
negative.code:   var
      i : integer;
    begin
      TraceSQL(SQL.Text);
      CreateImplementation;
      PrepareIfNecessary;
      for i := 0 to FParameters.Count -1 do
  