[*Caro*]

Hola Isuri, utiliza el evento OnMouseDown y el procedimientoMouseToCell:

Código Delphi [-]
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
 Col, Row : Integer;
begin
 if Shift = [ssRight] then //Esto para el Click derecho
  begin
   StringGrid1.MouseToCell(X, Y, Col, Row);
   if (Row<>0) and (Col<>0) then
    begin
     StringGrid1.Row := Row;
     StringGrid1.Col := Col;
    end;
  end;
end;

Saluditos