Выделение ячейки в DBGrid правой кнопкой мыши

[RIO]

Здравствуйте, дорогие коллеги ! Подскажите пожалуйста как выделить ячейку в DBGrid правой кнопкой мыши . . . То есть когда я нажимаю правой кнопкой мыши на DBGrid выполняется аналогия, будь-то я нажал левой кнопкой мыши В гугле искал, ничего толкового не нашел, только как по координатам вызвать контекстное меню при нажатии на DBGrid правой кнопкой мыши

[psycho-coder]

Вот так что ли?

procedure TForm.DBGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  // Эмуляция нажатия мыши
  if Button = mbRight then
    mouse_event(MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

[RIO]

Именно ! Огромнейшее спасибо