anchor.diff:  var
     i : integer;
   begin
  -  TraceSQL(SQL.Text);
  +  TraceSQL(FSQL.Text);
     CreateImplementation;
     PrepareIfNecessary;
     for i := 0 to FParameters.Count -1 do
  
positive.code:     procedure Prepare;
      procedure Unprepare;
      function Prepared : boolean;
      function ParamByName(const Value: string): TmQueryParameter;
  
      property DatabaseConnection : TmDatabaseConnection read FDatabaseConnection write FDatabaseConnection;
      property SQL : TStringList read FSQL;
    end;
  
  
  
negative.code:   Result := FImplementation.Prepared;
  end;
  
  function TmAbstractDatabaseCommand.ParamByName(const aValue: string): TmQueryParameter;
  begin
    CreateImplementation;
    if PrepareIfNecessary then
  