StrinGrid( выделялась ячейка над которым находится курсор)

[StartMis]

Как сделать чтоб при щелчке правой кнопки мыши в stringgri-e выделялась ячейка над которым находится курсор и появлялось popumenu. в popumenu пункт удалить который удаляет выделенную ячейку.

[eoln]

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then begin
     Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
     Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
  end
end;

В обработчике меню

stringgrid1.Cells[stringgrid1.Col, stringgrid1.Row] := '';