type TStringGridX = class(TStringGrid); label1.Caption:= inttostr(TStringGridX(dbGrid1).Row); label2.Caption:= inttostr(TStringGridX(dbGrid1).RowCount);