procedure SetUpForFiltering;
var
bfTableName: string;
begin
bfTableName := 'bfMsg' + IntToStr(GetTickCount);
bfSession := MakeDBISAMSession;
Bayesian := MakeDBISAMTable('Bayesian', slOptsStr('_DataPath'), bfSession);
Bayesian.Open;
// First create an interim analysis table
Maker := MakeDBISAMQuery('Memory', bfSession);
Maker.SQL.Add('DROP TABLE IF EXISTS "Memory\' + bfTableName + '";');
Maker.SQL.Add('CREATE TABLE IF NOT EXISTS "Memory\' + bfTableName + '"');
Maker.SQL.Add('(');
Maker.SQL.Add('"_Token" VARCHAR(60),');
Maker.SQL.Add('"_MsgCount" INTEGER,');
Maker.SQL.Add('"_Probability" FLOAT,');
Maker.SQL.Add('"_Significance" FLOAT,');
Maker.SQL.Add('PRIMARY KEY ("_Token") COMPRESS NONE');
Maker.SQL.Add('LOCALE CODE 0');
Maker.SQL.Add('USER MAJOR VERSION 1');
Maker.SQL.Add(');');
Maker.SQL.Add('CREATE INDEX IF NOT EXISTS "Chance" '+
              'ON "Memory\' + bfTableName + '" ("_Probability") COMPRESS NONE;');
Maker.SQL.Add('CREATE INDEX IF NOT EXISTS "Significance" ON '+
              '"Memory\' + bfTableName + '" ("_Significance") COMPRESS NONE;');

Maker.ExecSQL;
Maker.Close;
Maker.Free;
bfMsg := MakeDBISAMTable(bfTableName, 'Memory', bfSession);
bfMsg.Exclusive := True;
bfMsg.Open;
SpamStats := MakeDBISAMTable('SpamStats', slOptsStr('_DataPath'), bfSession);
SpamStats.Open;
end;