如何在OnTop窗体上面显示一个模态窗体

应该这样显示模态窗体：
application.NormalizeAllTopMosts;
ModalForm.ShowModal;
Application.RestoreTopMosts;
使用Delphi本身提供的切换OnTop的属性，可能造成窗体闪烁，可以用API来代替：
SetWindowPos(handle,hwnd_topmost,0,0,0,0,swp_nomove or swp_nosize);//Set
SetWindowPos(handle,hwnd_notopmost,0,0,0,0,swp_nomove or swp_nosize);//Unset
但是这个方法不适合于二级窗体。
OnTop窗体的一个问题：
Kingron:
例如一个Form1,Form2，Form1中调用Form2：
Hide;
form2.ShowModal;// or Show
这个时候，Form2是不能OnTop的。必须修改代码如下：
try
Hide;
Application.NormalizeAllTopMosts;
LitterWin.ShowModal;
Application.RestoreTopMosts;
finally
show;
end;
而且，在Form2的OnShow中，必须添加代码：
SetWindowPos(handle, hwnd_topmost, 0, 0, 0, 0, swp_nomove or swp_nosize);