Обработка нажатие правой кнопки мыши StringGrid

[TaYgA]

Всем доброго времени суток! Столкнулся с такой проблемой, что при нажатии на определённую ячейку StringGrid левой кнопкой мыши в этой ячейке меняется числовое значение на +1!

procedure TF1.StringGrid2Click(Sender: TObject);
var
   i: Integer;
   a: String;
begin
  a:=StringGrid2.Cells[StringGrid2.Col,StringGrid2.Row];
  if a='' then
    i:=1
    else
      i:=StrToInt(a)+1;
  if i<100 then
    StringGrid2.Cells[StringGrid2.Col,StringGrid2.Row]:=IntToStr(i)
    else
      ShowMessage('Максимальное значение ячейки!');
end;

Подскажите пожалуйсто, как можно сделать так, чтоб при нажатии правой кнопкой мыши значение ячеёки уменьшалось на минус один.

[Stilet]

Забудь про OnClick. Опиши свое в OnMouseDown

...
 i:=StrToInt(a);
 if button=mbright then inc(i) else dec(i);
...

[TaYgA]

Спасибо! всё работает!!!