Multi-Select using Shift Key

Hi


Any ideas how to implement selecting multiple rows using the Shift and arrow/pgup/pgdown keys on the advdbGrid?
Set grid.pageMode = false and set :
DisjunctRowSelect = true in grid.MouseActions & goRowSelect = true in grid.Options