string grid...

[ilushka2306]

Подскажите пожалуйста, как сделать чтоб величина string grid изменялась в зависимости от + или -

procedure TForm1.Edit1Change(Sender: TObject);
begin
  StringGrid1.Visible:=True;
  n:=StrToInt(edit1.Text);
end;

procedure TForm1.SpinButton1DownClick(Sender: TObject);
begin
  n:=StrToInt(edit1.Text);
    while n>2 do
      begin
        n:=n-1;
      end;
    Edit1.Text:=IntToStr(n);
    StringGrid1.ColCount:=n;
end;

procedure TForm1.SpinButton1UpClick(Sender: TObject);
begin
  n:=StrToInt(edit1.Text);
    begin
      n:=n+1;
    end;
  Edit1.Text:=IntToStr(n);
  StringGrid1.ColCount:=n;

end;

сейчас на + работает хорошо, а вот как нажмешь - сразу присваивается 2,
Надо чтобы работало с одним и тем же числом... например если было число 6 то при + было 7 и при - было 5


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

так?

procedure TForm1.SpinButton1DownClick(Sender: TObject);
begin
  n:=StrToInt(edit1.Text) - 1;
  if n>=0 then begin
    Edit1.Text:=IntToStr(n);
    StringGrid1.ColCount:=n;
  end;
end;