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.