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