在dbgrid中如何多行選中記錄（ctl與shift均可用），設定dbgrid的dgmultiselect為true,只有ctl好用而shift不好用，如何使shift也好用

Dbgrid原始碼：
procedure TCustomDBGrid.KeyDown(var Key: Word; Shift: TShiftState);
var
  KeyDownEvent: TKeyEvent;

  procedure ClearSelection;
  begin
    if (dgMultiSelect in Options) then
    begin
      //FBookmarks.Clear;/將這行註釋掉，按住Shift可以上下箭頭多選
      FSelecting := False;
    end;
  end;