[Alegun]

Для вашего примера, добавьте на форму SpinEdit1 и задайте в форм криэйт

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
 SpinEdit1.Button.OnUpClick:= Button1Click;
 SpinEdit1.Button.OnDownClick := Button2Click;
end;