anchor.diff:  
         conn.FetchNext;
         Assert.IsTrue(conn.ColIntegerByName['TestKey'] = 2);
  -      Assert.IsTrue(conn.ColStringByName['Name'] = 'Name 2');
  +      Assert.IsTrue(conn.ColStringByName['Name'] = Name_455);
         Assert.IsTrue(conn.ColIntegerByName['Number'] = 3);
         Assert.IsTrue(conn.ColInt64ByName['BigNumber'] = -i64);
         Assert.IsTrue(isSame(conn.ColDoubleByName['FloatNumber'], 3.4));
  
positive.code:   private
      procedure test(manager: TKDBManager);
    Published
      [TestCase]
      procedure TestSemaphore;
      [TestCase]
      procedure TestMSSQL;
      { [TestCase] } procedure TestMySQL;
      // {[TestCase] }procedure TestMySQLMaria;
      [TestCase]
      procedure TestSQLite;
    End;
  
  implementation
  
  type
    ETestException = class(Exception);
  
negative.code:       conn.sql := 'Insert into TestTable (TestKey, Name, Number, BigNumber, FloatNumber, Instant, Content) values (:k, :n, :i, :bi, :d, :ts, :c)';
        conn.Prepare;
        conn.BindKey('k', 2);
        conn.BindString('n', Name_455);
        conn.BindInteger('i', 3);
        conn.BindInt64('bi', -i64);
        conn.BindDouble('d', 3.4);
  