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