[cloayza]

Empezado por ecfisa

Código Delphi [-]
function NroRegistros(ADBGrid: TDBGrid): Integer;
begin
  Result:= ADBGrid.DataSource.DataSet.RecordCount;
end;

Le agregaria lo siguiente:

Código Delphi [-]
function NroRegistros(ADBGrid: TDBGrid): Integer;
begin
       Result:=0;       
       If Not Assigned(ADBGrid.DataSource) then Exit; //Valida si el grid tiene asignado un TDatasource
       if Not Assigned(ADBGrid.DataSource.Dataset) then exit;  //Valida si el Datasource tiene asignado un Dataset
       If Not  ADBGrid.DataSource.DataSet.Active then Exit;  //Valida si el Dataset esta abierto

      Result:= ADBGrid.DataSource.DataSet.RecordCount;
end;

Siempre es bueno tomar algunas precauciones...

Saludos