[NumLock]

можно "заблокировать" операцию Paste:

Код:

type
  TEdit = class(StdCtrls.TEdit)
  public
    procedure WMPASTE(var Msg: TMessage); message WM_PASTE;
  end;
...
{ TEdit }

procedure TEdit.WMPASTE(var Msg: TMessage);
begin
  //    
end;