Mouse-Over-Effekt für TBitBtn (Bitmap Button) erstellen-WIE?

[Gandalfus]

Delphi-Quellcode:

TCustomButton = class(TButton)
privat
  Procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  Procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
end;

Procedure TCustomButton .CMMouseEnter(var Message: TMessage);
begin
  
end;

Procedure TCustomButton .CMMouseLeave(var Message: TMessage);
begin
  
end;