[roman]

Puedes usar el método BoxRect:

Código Delphi [-]
var
  R: TRect;

begin
  with DBGrid1 do
    R := BoxRect(0, Row, ColCount, Row);
end;

Sólo que hay un pequeño problema: BoxRect, Row y ColCount son métodos y propiedades protegidas de TDBGrid. Puedes desprotegerlas así:

Código Delphi [-]
type
  THackGrid = class(TDBGrid);

var
  R: TRect;

begin
  with THackGrid(DBGrid1) do
    R := BoxRect(0, Row, ColCount, Row);
end;

// Saludos