我想做一个控件,继承自TSpeedButton,想去掉TSpeedButtonMouseEnter时凸出和MouseDown凹下的效果

我想做一个控件,继承自TSpeedButton,想去掉TSpeedButtonMouseEnter时凸出和MouseDown凹下的效果一个网友帮我解决了去掉凸出效果的问题,但是MouseDown凹下的问题还未解决,
请大家帮帮忙
unit foxSpeedButton;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons;type
  TfoxSpeedButton = class(TSpeedButton)
  private            { Private declarations }
    FOnMouseDown: TMouseEvent;    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;  protected
    { Protected declarations }
     procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
  public
    { Public declarations }
  published
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Samples', [TfoxSpeedButton]);
end;
procedure TfoxSpeedButton.CMMouseEnter(var Message: TMessage);
beginend;procedure tfoxSpeedButton.MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
begin//这里的代码该怎么写???????????????????????end;
end.