Source position: cyResizer.pas line 283
type TProcOnListInsert = procedure(
Sender: TObject;
Control: TControl;
var Accept: Boolean
) of object;