DBGrid weiterentwickeln: onmousedown und mousetocell

[Taladan]

Um ein DBGrid Drag & Drop einfach Handhaben zu können, wollte ich ihn das onmousedown und das mousetocell Ereignis hinzufügen. Ersteres hab ich so gelöst.

Delphi-Quellcode:

Sourcecode: 
procedure TTaladansDBGrid.MouseDown(Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
begin 
  if Assigned(FOnMouseDown) then 
    FOnMouseDown(Self, Button, Shift, X, Y); 
  inherited MouseDown(Button, Shift, X, Y); 
end;

Kann mir einer sagen, wie ich ein mousetocell hinzufügen kann? Das Ereignis mousecoord ermittelt leider bei mir immer nur die Zelle aktuellen Anzeige (d. h. bei einer überlangen Tabelle wird nicht Zeile/Datensatz 52 zurückgeliefert, wie es eigendlich richtig währe, sondern beispielsweise Zeile 5, weil es der momentan fünfte Datensatz in der Anzeige ist).

PS: Oder weiß jemand, wie ich obriges Problem mit den Zellencoordinaten besser lösen kann?