DBGrid и выделение правой клавишей мыши

[GoodLuck To All]

Добро времени суток!
Собственно с вопросом который указан в заголовке разобрался..:

procedure TGlb.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
dbgrid1.SelectedRows.CurrentRowSele cted := not dbgrid1.SelectedRows.CurrentRowSele cted;
end;

.., но вот второй вопрос не даёт покоя и гуглование не помогает.

Как реализовать функцию выделения правой клавишей мыши не по одной а сразу несколько позиций?

Пример - TotalCommander: зажимаем правую клавишу и тянем мышь вниз, выделяются все позиции которые оказались под мышью.

Буду благодарен за помощь в решении! Спасибо!

[evg_m]

зажимаем правую клавишу

MouseDown

и тянем мышь вниз

MouseMove и ЕГО параметры (просто "возим" | "возим" с зажатыми кнопками мыши | с зажатыми Ctrl Shift | .... )

, выделяются все позиции которые оказались под мышью.

Где сейчас курсор мыши?
Какая строка сейчас в этом самом месте?
Что с ней делать?

[xxbesoxx]

1)

procedure TfrmPriemProc.PopMeniuFonts;
begin
    PopupMenu1.OwnerDraw := True;
    screen.MenuFont.Size := 11;
    screen.MenuFont.Style := [fsBold];
    screen.MenuFont.Name := 'Times New Roman';
end;

2)

procedure TfrmPriemProc.dbgrdPriemMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 var
  P: TPoint;
begin
  PopMeniuFonts;// Вызиваю здесь 
  P := GetClientOrigin;
    if Button = mbRight then
    PopupMenu1.Popup(X + P.X + dbgrdPriem.Left,
    Y + P.Y + dbgrdPriem.Top);