anchor.diff:  var
     i : integer;
   begin
  -  TraceSQL(SQL.Text);
  +  TraceSQL(FSQL.Text);
     CreateImplementation;
     PrepareIfNecessary;
     for i := 0 to FParameters.Count -1 do
  
positive.code: var
    i : integer;
  begin
    TraceSQL(SQL.Text);
    CreateImplementation;
    PrepareIfNecessary;
    for i := 0 to FParameters.Count -1 do
  
negative.code:   Result := FImplementation.Prepared;
  end;
  
  function TmAbstractDatabaseCommand.ParamByName(const aValue: string): TmQueryParameter;
  begin
    CreateImplementation;
    if PrepareIfNecessary then
  