[RusMaXXX]

Код:

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then ShowMessage('Нажата левая кнопка');
  if Button = mbRight then ShowMessage('Нажата правая кнопка');  
end;