Получить ID сфокусированного элемента формы

[randrews]

Думаю, придется каждого контрола OnActivate обрабатывать....
И на этом тригере вручную прописывать

VarIntegerFieldNo := 1;
VarIntegerFieldNo := 2;
....
и т.п.

Гемор, конечно...

Может кто лучше идею даст