[roamer]

Событие wm_paste должно вызываться при вставке "чего-то" (например, текст), "куда-то" (например, в наследник от TCustomEdit).
Примерно так :

Код:

Type
  TMyEdit = class(TCustomEdit)
  private
    procedure WMPaste(var Message: TWMPaste);   message WM_PASTE;
  published
    property Anchors;
    ...
    property OnStartDrag;
  end;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
  public
    MyEdit : TMyEdit;
  end;

var
  Form1: TForm1;
implementation
...

procedure TForm1.FormCreate(Sender: TObject);
begin
   MyEdit := TMyEdit.Create(Self);
   MyEdit.Parent:=Self;

   MyEdit.Top:=30;
   MyEdit.Left:=20;

end;

procedure TMyEdit.WMPaste(var Message: TWMPaste);
begin
  ShowMessage('TMyEdit: WMPaste');
  inherited;
end;

...
end.