Лично я, обычно делаю TabOrder=-1
Вместо doSetFocus.....
------------ Дoбавленo в 10.40:
первый раз вижу неумолимое нарастание г.г.г.г.....