unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, StdCtrls;
 
type
    TEdit = class(StdCtrls.TEdit)
    private
        procedure WMPaste(var Message:TMessage); message WM_PASTE;
    end;
 
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
{$R *.dfm}
{ TEdit }
 
procedure TEdit.WMPaste(var Message: TMessage);
begin
    if MessageBox(Handle, PChar('Разрешить вставку из буфера в '+self.Name+'?'),
                  'WM_PASTE', MB_YESNO or MB_ICONASTERISK)=ID_YES then
            inherited;
end;
 
end.