constructor Create(bm: Graphics.TBitmap; out histogram: TObject); overload;

This is Create, a member of class BitmapGray.