function DBGridVisibleDataRows(AGrid: TDBGrid): Integer;
var
LTemTitulo : Boolean;
LLinhaBase : Integer;
r0, r1 : TRect;
rowH, topData,
visH : Integer;
begin
if (AGrid = nil) or (AGrid.ClientHeight <= 0) then
Exit(0);

LTemTitulo := dgTitles in AGrid.Options;
LLinhaBase := Ord(LTemTitulo); // 0 sem títulos, 1 com títulos

// mede altura real de uma linha usando dois retângulos consecutivos
r0 := AGrid.CellRect(0, LLinhaBase);
r1 := AGrid.CellRect(0, LLinhaBase + 1);
rowH := r1.Top - r0.Top;

// fallback se ainda não deu para medir (grid vazio/não pintado)
if rowH <= 0 then
rowH := AGrid.DefaultRowHeight + 1; // não usa GridLineWidth (protected)

// topo da área de dados
if r0.Top > 0 then
topData := r0.Top
else if LTemTitulo then
topData := AGrid.DefaultRowHeight + 1
else
topData := 0;

visH := AGrid.ClientHeight - topData;

if (rowH <= 0) or (visH <= 0) then
Exit(0);

Result := Max(0, visH div rowH);
end;