Was ist das - сканить адреса? Как это будет по русски?
Это значения что ли по этим адресам?
Быстрее чем for I := 401000 to 401000 + Length do ничего не придумаешь.
И if ....then exit ;
I - конечно локальная переменная, которая на стеке.
while ... do и Repeat ... Until будет помедленней.
В заисимости, что сравниваем, тоже немножко можно в скорости выиграть, но не с Integer.
Понятно, что сравнивать один байт очень накладно! Быстрее будет наложить маску с нужным байтом.
Но и по простому, разницы не заметишь.
Через doWork и onEvent это маразм.