动态创建已有窗体的副本，停留2s消失

Question

程序中已有一个窗体Form2,Form2是根据moshi值来显示不同的图片内容，想要在Form1窗体上单击按钮时，动态创建一个跟当前Form2一样的窗体，且此窗体显示2秒后自动关闭！
var
  frm :TForm;
begin
  frm := TForm2.Create(Form2);
  frm.ShowModal;
  sleep(2000);
  frm.Close;
end;
可是这段代码不起作用，显示的新窗体一片空白，且无法2s后关闭！
我是新人，没有分，希望有好心人能帮我，万分感谢！

Answer 1

下载NativeXml的Demo，参考其中的Example(NativeXml 2.37 当中为Example5)

Answer 2

根据其中的办法用来将窗体进行持久化处理，从而可以进行重复加载。这样子就可以实现克隆。增加一个定时器，触发的时候调用close关闭窗体。