anchor.diff:  var
     i : integer;
   begin
  -  TraceSQL(SQL.Text);
  +  TraceSQL(FSQL.Text);
     CreateImplementation;
     PrepareIfNecessary;
     for i := 0 to FParameters.Count -1 do
  
positive.code:   Result := FImplementation.Prepared;
  end;
  
  function TmAbstractDatabaseCommand.ParamByName(const Value: string): TmQueryParameter;
  begin
    CreateImplementation;
    if PrepareIfNecessary then
  
negative.code:     // must reload FParameters
      ReloadParameters;
    end;
    Result := FParameters.FindByName(aValue);
  end;
  
  procedure TmAbstractDatabaseCommand.SetSQL(const aValue: string);
  begin
    Self.FSQL.Clear;
    Self.FSQL.Append(aValue);
  end;
  
  { TmDatabaseCommand }
  