Как назначить событие на увеличение/уменьшение TSpinEdit с помощью стрелочек?

У TSpinEdit.Button есть дополнительные события, которые не показаны в инспекторе объектов, например, OnUpClick и OnDownClick...

Code:

unit Unit1;

{©Drkb v.3(2007): www.drkb.ru}

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls, Spin;

type

TForm1 = class(TForm)

SpinEdit1: TSpinEdit;

procedure FormCreate(Sender: TObject);

public

procedure OnButtonUpClick(Sender: TObject);

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

SpinEdit1.Button.OnUpClick := OnButtonUpClick;

end;

procedure TForm1.OnButtonUpClick(Sender: TObject);

begin

MessageDlg('Up Button was clicked.', mtInformation,

[mbOk], 0);

end;

end.

TEdit, TSpinEdit