[Mrak]

проект - нет
он слишком дорог для меня))

да я прям только что кинул мемо и в обработчик онкейпресс засунул ту строку

if not (Key in ['0'..'9']) then Key := #0;

работает, только цифры можно вводить