Source position: controls.pp line 1321
type TGetChildProc = procedure(
Child: TComponent
) of object;