OnDragdrop y OnDragOver

[plionut]

Muy buenas. Tengo un componente propio que deriva de la clase TCustomControl.
Lo que deseo es poder arrastrar y soltar un panel encima de este componente mío.
El código mediante el cual he intentado esto es el siguiente:

Código Delphi [-]
  TDragDropEvent = procedure(Sender, Source: TObject; X, Y: Integer) of object;
  TDragOverEvent = procedure(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean) of object;

 TMiNuevoComponente = class(TCustomControl) 
 private
    fDragDropEvent : TDragDropEvent;
    fDragOverEvent : TDragOverEvent;
    ...
  published
    property OnDragDrop1: tDragDropEvent read fDragDropEvent write fDragDropEvent;
    property OnDragOver1: tDragOverEvent read fDragOverEvent write fDragOverEvent;
    ...
 end;

Pero sin éxito. En mi formulario he asignado un trozo de código en ambos eventos pero ninguno llega a dispararse. He observado que dentro de la clase TMiNuevoComponente puedo acceder a dos propiedades (OnDragDrop y OnDragOver) pero no se de que me puede servir.

Gracias.