Сон разума или сок мозга -

Ах да.
procedure TForm1.find(var d:different;n:int64); --> procedure TForm1.find(var d:different;j:byte;n:int64);

i:=1; --> i:=j;

Итого:
ускорениие работы программы в... Раз так 200. Завтра проверю точно.
Теперь прогнать тест на 126 блоках по 128 бит - быстрее чем раньше для одного B)