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