TDBGrid + DragDrop + PopUp + Multiselect

[ecfisa]

Hola mjjj.

Disculpas, recién veo tu última consulta.

En el evento MouseDown, deberías controlar que el cursor no esté sobre el título:

Código Delphi [-]
procedure TDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  P: TPoint;
begin
  case Button of
    mbLeft: if MouseCoord(X,Y).Y <> 0 then BeginDrag(True); // <- aquí
    mbRight: begin
               P:= ClientToScreen(Point(X,Y));
               PopupMenu.Popup(P.X,P.Y);
             end
  end;
  inherited;
end;

Saludos