added procedure TTestExternalDatabase._TQuery regression test