anchor.diff:                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)));
  +
  +              for i := 0 to Pred(fColCount) do
  +              begin
  +                fCols.Add(AnsiUpperCase(Sqlite3_ColumnName16(stmt, i)));
                 end;
  +
                 for i := 0 to Pred(fColCount) do
                 begin
                   new(thisColType);
  
positive.code:   DeclaredColType: PChar;
    ActualColType: integer;
    ptrValue: PChar;
  begin
    inherited create;
    try
  
negative.code:                       if DeclaredColType = 'BLOB' then
                          thisColType^ := dtBlob
                        else
                          thisColType^ := dtStr; }
                  fColTypes.Add(thiscoltype);
                end;
                fResults := TList.Create;
  