[Yurk@]

Можно в OnKeyPress поместить такой код:

Код:

case Key of
'0'..'9',#8  :;
else
ShowMessage('Сообщение об ошибке');
Key:=#0;
end;

И эта проблема уже не актуальна:

Вправо-влево пользователю двигать курсор запретим? Выделение Shift`ом тоже? Home/End?

Но эта всё-же имеет место:

Копирование/вставку?