[yusnerqui]

Te daré una idea:

Código Delphi [-]
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer)
var
F,C : Integer
begin
 TStringGrid(DBGrid1).MouseToCell(x,y,C,F);
  DBGrid1.Col  := C;
  DBGrid1.Row := F;
  DBGrid1.SetFocus;
end;

esto hace lo que quieres cuando pasas el mause por encima del DBGrid, no te será difícil adaptarlo a tu programa, también debes tener en cuenta que cuando sales por las esquinas del DBGrid te manda un error, supongo que no será difícil capturarlo, pero no tengo mucho tiempo ahora, al menos te doy esta idea y tu pones lo demás, espero te sirva

un saludo