Source position: controls.pp line 1195
protected procedure TControl.DoOnParentHandleDestruction; virtual;
implement in descendants