anchor.diff:      procedure Prepare;
       procedure Unprepare;
       function Prepared : boolean;
  -    function ParamByName(const Value: string): TmQueryParameter;
  +    function ParamByName(const aValue: string): TmQueryParameter;
  +    procedure SetSQL(const aValue : string);
   
       property DatabaseConnection : TmDatabaseConnection read FDatabaseConnection write FDatabaseConnection;
  -    property SQL : TStringList read FSQL;
  +    // property SQL : TStringList read FSQL;
     end;
   
   
  
positive.code:     // must reload FParameters
      ReloadParameters;
    end;
    Result := FParameters.FindByName(Value);
  end;
  
  { TmDatabaseCommand }
  
negative.code:   Result := FImplementation.Prepared;
  end;
  
  function TmAbstractDatabaseCommand.ParamByName(const aValue: string): TmQueryParameter;
  begin
    CreateImplementation;
    if PrepareIfNecessary then
  