[Delphi7] компонент SpinEdit

[Oldcentre]

Еще раз здравствуйте!
Вопрос такой:
Имеется SpinEdit и LabeledEdit (Или что-то другое, не важно).
Как сделать так, чтобы при уменьшении числа в в спине на единицу, в лэйбле оно увеличивалось на единицу; а при увеличивании - уменьшалось, при этом, если число в лэйбле доходило до нуля, дальше повышать спин было нельзя.
Также интересует, как запретить ввод чисел в Спин вручную - чтобы менялись только тыкая на стрелочки.
Спасибо.

P.S: Вопросов у меня будет много, поэтому целесообразно ли каждый раз создавать новую тему, или лучше все вопросы сваливать в одну?
Так же странно, что нет темы "вопросы и ответы", или я просто не нашел?

[Oldcentre]

Как ни бьюсь, ничего не идет.
Через if...then он делает только со знаком "=".

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
if StrToInt(IntToStr(spinedit1.value))=StrToInt(IntToStr(spinedit1.value)) then
LabeledEdit1.Text:=IntToStr(StrToInt(LabeledEdit1.text)+1);
end;

Так он вне зависимости от того, увеличиваю я или уменьшаю значение, Лебел уменьшает всегда.
А со знаком "<" он что-то не реагирует.

[Ivan_Susanin]

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
if old_value>spinedit1.value then
LabeledEdit1.Text:=IntToStr(StrToInt(LabeledEdit1.text)+1);

if old_value<spinedit1.value then
LabeledEdit1.Text:=IntToStr(StrToInt(LabeledEdit1.text)-1);

old_value:=spinedit1.value;
end;

[Oldcentre]

Ivan_Susanin, а где объявлять old_value:=spinedit1.value; ?
В var оно пишет Undeclared identifier: 'SpinEdit1'

[Oldcentre]

Ничего нового на ум не пришло, всвязи с этим UP