Find which control is the top parent (ie ultimate ancestor)
Source position: controls.pp line 1267
public function TControl.GetTopParent: TControl;