procedure Clone(out newImage: IImageAdapter); override;

This is Clone, a member of class BitmapGray.