Получить гл. окно от дочернего.

[Luuzuk]

С RestoreTopMosts побаловаться не пробовали?

[Человек_Борща]

типа так?

    if (hFor = hW) or (GetParent(hFor) = hW) then
    begin
      FormStyle := fsStayOnTop;
      Application.RestoreTopMosts;
    end
    else
    begin
      FormStyle := fsNormal;
      Application.NormalizeTopMosts;
    end;

неа, не заработало. Глюк с видео продолжает повторяться.

[Человек_Борща]

Решение оказалось куда проще.
Я просто использовал функцию SetParent(из WinAPI).

Проблема решена.