keyDown에 넣고 사용하시면 됩니다.
다른방법도 있을텐데 저는 아래방법이 좀더 쉬운듯 싶더군요.

procedure TForm1.edt1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if ((ssCtrl in Shift) AND (Key = ord('V'))) then
   begin
     edt1.PasteFromClipboard;
     Key := 0;
   end;
   if ((ssCtrl in Shift) AND (Key = ord('C'))) then
   begin
     Edt1.CopyToClipboard;
     Key := 0;
   end;

   if ((ssCtrl in Shift) AND (Key = ord('X'))) then
   begin
     Edt1.CopyToClipboard;
     edt1.Clear;
     Key := 0;
   end;

end;


사미 님이 쓰신 글 :
: 전화번호를 입력받을 TEdit 컴포넌트에서
:
: 숫자만 입력이 되게 하고싶은데요
:
: keypress 부분에서
:
: if (key <> #8) and ((key < #46) or (key > #57)) then
:    abort;
:
: 이렇게 쓰면 숫자만 입력이 되긴 하는데요~
:
: ctrl+c, ctrl+v가 안먹히거든요 ㅜㅜ
:
: 숫자가 입력이 되고.. 복사 붙여넣기 등의 기능도 가능하게 하려면..
:
: 어떻게 해야 할 지 잘 모르겠어요~ 조언 부탁드립니당~ ^^