[Casimiro Notevi]

He hecho una sencilla prueba y funciona bien poniendo el código en el "CellClick" del dbgrid:

Código Delphi [-]
DBGrid1.EditorMode:= True;
DBGrid1.Perform(EM_SCROLLCARET, 0, 0);