[TiammatMX]

Un compañero me proporcionó éste código:

Código Delphi [-]
procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  R, C: Integer;
begin
  StringGrid1.MouseToCell(X, Y, C, R);
  with StringGrid1 do
  begin
    if ((Row<>R)or(Col<>C)) then
    begin
      Row:=R;
      Col:=C;
      Application.CancelHint;
      StringGrid1.Hint:=IntToStr(R)+#32+IntToStr(C);
    end;
  end;
end;

El cual modifiqué así:

Código Delphi [-]
procedure TfrmPrescripcionDieteticaInicial.stgProcesarMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  R, C: Integer;
  sHint : string;
begin
   if (Sender).ClassType = TStringGrid then
   begin
      stgProcesar.MouseToCell(X, Y, C, R);
      if (R > 2) and (C > 3) then
      begin
         with stgProcesar do
         begin
            if ((Row <> R) or (Col <> C)) then
            begin
               Row := R;
               Col := C;
               sHint := CapitalFirst(BuscaHint(Cells[C,2]));
               if Trim(sHint) > '' then
               begin
                  Application.CancelHint;
                  Hint := sHint;
               end;
            end;
         end;
      end;
   end;
end;

...y queda haciendo EXACTAMENTE lo que necesito.