procedure GetStatisitcsEx(var fSum: CommonTypes.Size; var fSumOfSquares: CommonTypes.Size; var fMinSz: CommonTypes.Size; var fMaxSz: CommonTypes.Size; var fSumDensity: float; var fSumOfSquaresDensity: float; var fMinDensity: float; var recTotal: integer; var pntsTotal: integer);

This is GetStatisitcsEx, a member of class Blackruns.