OnKeyPress 에서
if((Key < '0' || Key > '9') && Key != 22 && Key != 3)
    Key = 0;

22 : Ctrl + V
3 : Ctrl + C

참고로 아래 숫자만 입력받는 소스라고 하신 것은 Key 가 0~9 가 들어올 때 무시한다는 뜻입니다.

아무개 님이 쓰신 글 :
: 에디트에 숫자만 입력하려고 합니다
:
: 그러나 CTRL+V, CTRL+C 기능은 정상적으로 쓸수 있도록 하고 싶습니다.
:
: 고수님들의 답변 부탁 드림다.
:
: ==================================================================
: [참고]아래 소스는 숫자만 입력하는 소스
:
: void __fastcall TForm1::zBudgetYearKeyPress(TObject *Sender, char &Key)
: {
:     if(!((Key>='0') &&(Key<='9')))
:     {
:         Key=0;
:         ShowMessage("숫자만 입력합니다!");
:      }   
: }