Delphi控制编辑类控件不能粘贴

在一些C/S软件和登录网站输入账号密码时经常只能进行输入，而不让用户直接粘贴，防止上次用户登录账号没清除，下一个用户直接粘贴该账号而导致账号信息泄露，刚好在公司开发中要实现该功能，下面记录下在Delphi中实现该功能的方法。粘贴主要是利用了windows的剪贴板功能，因此清除剪贴板中内容即可实现。

打开Delphi，新建一个应用程序，在窗体上放置2个Edit控件和一个popupmenu控件。窗体文件和源码如下：

object Form1: TForm1
  Left = 333
  Top = 327
  Width = 328
  Height = 199
  Caption = '禁用粘贴功能'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object edt1: TEdit
    Left = 64
    Top = 32
    Width = 121