Event wird nicht ausgelöst ?!

[ghost007]

Hallo,

ich wollte mir eine eigenen kleine komponente basteln.
Hierfür bin ich nach dem tutorial von dsdt vorgegangen (Link: http://www.delphi-treff.de/tutorials...en-entwicklen/)

Meine unit schaut wie folgt aus:

Delphi-Quellcode:

unit ClipBoarder;

interface

uses
  SysUtils, Classes, Messages, Windows;

type
  TChangeEvent = procedure(Sender : TObject ) of Object;
  TClipBoarder = class(TComponent)
  private
    CChangeEvent: TChangeEvent;
    procedure ClipChange(var content: TMessage); message WM_DRAWCLIPBOARD;
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    property OnChange : TChangeEvent read CChangeEvent write CChangeEvent;
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Clipboarder', [TClipBoarder]);
end;

procedure TClipBoarder.ClipChange(var content: TMessage);
begin
 OnChange(self);
end;

end.

Wenn ich die kompo dann auf eine forum zieh und im onchange z.b.
 ShowMessage('changed'); mache, dann passiert nichts.

Was mach ich falsch?

MfG - Ghost007