＿＿＿＿＿
　　　∧,,∧∩　 ／
　 頒ﾟДﾟ；彡＜　除さん、いらんのですかい！
　 　 ,;ﾞ⊃,ｼﾞ　　 ＼＿＿＿＿＿
　〜ﾐ　,,○
　 　 ∪ 　　　 しらかた。

なんかｺﾑｽﾞｶな話ばかりでよくわかなんですが…

2,3,5,7をぶち縫いてメモリ圧縮したTBit(見た目Boolean配列)
のIndexにアクセスするために、こんな助産してるんですが、
これがいらんくなる？

function TEratosthenesSieveTBitsCutMultiplesOfTwoThreeFiveSeven.AccessInsideIndex(
　OutSideIndex: Cardinal): Cardinal;
var
　DivBuffer, ModBuffer: Integer;
begin
　DivBuffer := OutSideIndex div (2*3*5*7);
　ModBuffer := OutSideIndex mod (2*3*5*7);

　Result := DivBuffer*48; //1..210/211..(210*2)の間に48つの素数がある
　case ModBuffer of
　　 1..10:Result := Result + 1;
　　11..12:Result := Result + 2;
　　13..16:Result := Result + 3;
　　17..18:Result := Result + 4;
　　19..22:Result := Result + 5;
　　23..28:Result := Result + 6;
あと、略