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