[NumLock]

назначает функцию обратного вызова. в твоем примера она выглядит как:

Код:

bi.lpfn := addr(CallBack);