棘手，如何在一个程序中创建两个顶层窗口？

Question

两个顶层（formstyle=fsStayOnTop)的窗口呀。

Answer 1

在你的FORM中重载一个函数就行
 protected
    procedure CreateParams(var Params: TCreateParams); override;
  publicprocedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.WndParent := GetDesktopWindow;
end;