StringGrid - namiary komórki pod kursorem

Witam, jak sprawdzić jaka komórka znajduje się obecnie pod kursorem w StringGrid?

Pod kursorem poruszanym klawiszami

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  Caption := Format('Kolumna: %d Wiersz: %d', [ACol, ARow]);
end;

Pod kursorem myszki:

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  ACol, ARow : integer;
begin
  StringGrid1.MouseToCell(X, Y, ACol, ARow);
  Caption := Format('Kolumna: %d Wiersz: %d', [ACol, ARow]);
end;