在dbgrid中如何多行选中记录（ctl与shift均可用）

在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;