Source position: ectypes.pas line 92
type TIntegerEvent = procedure(
Sender: TObject;
AIndex: Integer
) of object;