[ctpaxm]

существует лейбл, который меняется при изменение переменной.
в общем:

Код:

блаблабла
    procedure SpinButton1UpClick(Sender: TObject);
    procedure SpinButton1DownClick(Sender: TObject);
блаблабла
procedure TForm1.SpinButton1UpClick(Sender: TObject);
begin
  str:= str + 1;
  fre:= fre - 1;
end;

procedure TForm1.SpinButton1DownClick(Sender: TObject);
begin
  str:= str - 1;
  fre:= fre + 1;
end;

end.

вниз работает, а вверх почему то нет. почему?
в инете нашёл шаблон, где это же действие показано, скопировал всё идентично, и всё равно не работает