Drag bei Doppelklick nicht auslösen - Wie?

[roga]

Delphi-Quellcode:

procedure TForm1.grd_aMouseDown(Sender: TObject; Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
var 
  aCol, aRow : integer; 
begin 
  if Button = mbLeft then 
    grd_a.MouseToCell(X,Y,ACol,arow);
  {------------------------------------- 
  ->> BeginDrag einfach mal weglassen
      bei DragMode := dmAutomatic <<-
  if (ACol <> -1) and (ARow <> -1) then 
    grd_a.BeginDrag(True); 
  -------------------------------------}
end;

roga