[ecfisa]

Hola Parsec.

Código Delphi [-]
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
  mp: TPoint;
  gc: TGridCoord;
begin
  with Column.Grid do
  begin
    mp := ScreenToClient(Mouse.CursorPos);
    gc := MouseCoord(mp.X, mp.Y);
  end;
  Caption := Format('Col:%d, Fil:%d',[gc.X, gc.Y]);
end;

Saludos.