procedure TForm1.DBCtrlGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);

  function getDBCtrlGridCoord(DBCtrlGrid: TDBCtrlGrid; x, y: Integer): TGridCoord;
  begin
    Result.X := x div ( DBCtrlGrid.ClientWidth div DBCtrlGrid.ColCount ) ＋ 1;
    Result.Y := y div ( DBCtrlGrid.ClientHeight div DBCtrlGrid.RowCount ) ＋ 1;
  end;
begin
  Memo1.Lines.Add(IntToStr(x)＋','＋IntToStr(y)＋'   -'＋IntToStr(getDBCtrlGridCoord(DBCtrlGrid1, x, y).X)＋','＋IntToStr(getDBCtrlGridCoord(DBCtrlGrid1, x, y).Y));
end;