anchor.diff:    Result := Self;
   end;
   
  -function TAnsiSQLBuilder.Values(const AValue: string): ISQLBuilder;
  -begin
  -  FValues.Add(AValue);
  +function TAnsiSQLBuilder.Values(const AValue: string; AIncludeQuotes: Boolean): ISQLBuilder;
  +begin
  +  FValues.Add(TSQLValue.Create(AValue, AIncludeQuotes));
     Result := Self;
   end;
   
  
positive.code:     else
        ABuilder.Append(',');
  
      ABuilder.Append(GetSQLString(Owner.FValues[i]));
    end;
  
    if Owner.FValues.Count > 0 then
  
negative.code:   end;
  end;
  
  { TSQLValue }
  
  constructor TSQLValue.Create(const AValue: string; AIncludeQuotes: Boolean);
  begin
    inherited Create();
    FValue := AValue;
    FIncludeQuotes := AIncludeQuotes;
  end;
  
  function TSQLValue.GetValue: string;
  begin
    Result := FValue;
    if FIncludeQuotes then
      Result := GetSQLString(Result);
  end;
  
  end.
  