procedure SQLCacheTest;
    var
    Number : Integer;
    Q1, Q2 : TEDBQuery;
    RecCount1, RecCount2 : Integer;
    begin
    Number := 1;
    Q1 := GetQueryObjectSQL('select * from atable where number = :Number');
    Q1.RequestSensitive := True;
    Q1.ParamByName('Number').AsInteger := Number;
    Q1.Open;
    RecCount1 := Q1.RecordCount;
    Q1.Free;
    assert(RecCount1 > 0, 'No records to test with, please select a different number');


    Q2 := GetQueryObjectSQL('select * from atable where number = :Number');
    Q2.RequestSensitive := False;
    Q2.ParamByName('Number').AsInteger := Number;
    Q2.Open;
    RecCount2 := Q2.RecordCount;
    Q2.Free;
    assert(RecCount1 = RecCount2, 'Record Count Missmatch');
    end;