anchor.diff:      function Execute : integer;
     end;
   
  +function GetLastSQLScript (var aTitle: string) : string;
  +
   implementation
   
   uses
  -  SysUtils, mDatabaseConnectionImplRegister;
  +  SysUtils, syncobjs,
  +  mDatabaseConnectionImplRegister, mExceptionLog;
  +
  +var
  +  _LastSQLScript: string;
  +  _LastSQLScriptCriticalSection: TCriticalSection;
  +
  +procedure TraceSQL (const aSQLScript: string);
  +begin
  +  _LastSQLScriptCriticalSection.Acquire;
  +  try
  +    _LastSQLScript:= aSQLScript;
  +  finally
  +    _LastSQLScriptCriticalSection.Leave;
  +  end;
  +end;
  +
  +function GetLastSQLScript(var aTitle: string): string;
  +begin
  +  aTitle := 'LAST SQL SCRIPT';
  +  Result := _LastSQLScript;
  +end;
   
     { TmAbstractDatabaseCommand }
   
  
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
  