Source position: extctrls.pp line 1192
type TBandInfoEvent = procedure(
Sender: TObject;
Control: TControl;
var Insets: TRect;
var PreferredSize: Integer;
var RowCount: Integer
) of object;