单击弹出新窗口

单击按钮弹出新窗口代码和效果：

procedure TForm3.N22Click(Sender: TObject);
begin
Fleibie.showmodal;
end;