anchor.diff:                        if DeclaredColType = 'BLOB' then
                           thisColType^ := dtBlob
                         else
  -                        thisColType^ := dtStr;
  +                        thisColType^ := dtStr; }
                   fColTypes.Add(thiscoltype);
                 end;
                 fResults := TList.Create;
  
positive.code:               fCols := TStringList.Create;
                fColTypes := TList.Create;
                fColCount := SQLite3_ColumnCount(stmt);
                for i := 0 to Pred(fColCount) do begin
                  fCols.Add(UpperCase(Sqlite3_ColumnName16(stmt, i)));
                end;
                for i := 0 to Pred(fColCount) do
                begin
                  new(thisColType);
  
negative.code:   DeclaredColType: PChar;
    ActualColType: integer;
    ptrValue: PChar;
    sColType: string;
    iColType: Integer;
  begin
    inherited create;
    try
  