Delphi - копирование\вставка!!!

procedure TForm1.Memo1Enter(Sender: TObject);
begin
  TForm(TMemo(Sender).owner).ActiveControl:=nil;
end;

unit MyMemo;
 
interface
 
uses
  Classes, StdCtrls, Messages, Clipbrd;
 
type
  TMyMemo = class(TMemo)
  private
    procedure WMCopy(var Msg: TMessage); message WM_COPY;
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Samples', [TMyMemo]);
end;
 
procedure TMyMemo.WMCopy(var Msg: TMessage);
begin
  // здесь не вызывается унаследованный обработчик
  // сообщения, поэтому копирования не происходит!
  // пожно поизгаляться и послать в буфер что-нибудь
  Clipboard.AsText:= 'Копирование из моей супер-программы запрещено!';
end;
 
end.

unit RoMemo;
 
interface
 
uses
  Forms, Classes, StdCtrls, Messages, Clipbrd;
 
type
  TRoMemo = class(TMemo)
  constructor Create(own : TComponent); override;
  private
    procedure WMCopy(var Msg: TMessage); message WM_COPY;
    procedure mEnter(Sender: TObject);
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Samples', [TRoMemo]);
end;
 
constructor TRoMemo.Create(own: TComponent);
begin
  inherited Create(own);
  ReadOnly:=true;
  TabStop:=false;
  OnEnter:=self.mEnter;
end;
 
procedure TRoMemo.mEnter(Sender: TObject);
begin
  TForm(self.Owner).ActiveControl:=nil;
end;
 
procedure TRoMemo.WMCopy(var Msg: TMessage);
begin
  // здесь не вызывается унаследованный обработчик
  // сообщения, поэтому копирования не происходит!
  // пожно поизгаляться и послать в буфер что-нибудь
  Clipboard.AsText:= 'Копирование Отменено!';
end;
 
end.

Я в этом коде изменил только:
1) TMyMemo = class(TMemo) НА TForm2=class(Tform2); и все остальные TMyMemo...