Source position: forms.pp line 1833
function GetTopFormSkipNonDocked(
Control: TControl
):TCustomForm;