在private下添加如下代码
  
    procedure WMnCHitTest(var M:tWMnCHitTest);message WM_nCHittest;

鼠标放在上面代码行中按下Ctrl+Shift+C添加 过程
在自动添加的过程中添加如下代码

   inherited;
   if M.Result=HTCLient then M.result:=htCaption;

按下F9运行，点击窗体任意位置即可拖动窗体，并在窗体中间任意位置双击会实现最大、最小效果
全部代码如下所示：

unit Unit1;

try
    Form2:=TForm2.Create(self);
    Form2.ShowModal;
finally
    Form2.Free;
end;

如果出现以下错误：

---------------------------
Project1
---------------------------
Cannot make a visible window modal.
---------------------------
确定  
---------------------------

需要将窗体2的Visible属性设置成False

问题2：非主窗体置顶

在Delphi

uses IniFiles; {uses 包含 TIniFile 的单元}

参考资料：

http://www.cnblogs.com/del/archive/2007/12/17/1003755.html

dUP2 全称为 diablo2oo2's Universal Patcher，它是一款极佳的文件补丁工具，可以进行自由定制。2.18 版加入了多语言支持。

diablo2oo2's Universal Patcher [dUP] 主要功能：
-　支持多文件
-　可创建偏移量或搜索与替换补丁/加载器
-　可比较不同大小的文件 (实偏移与虚拟地址)
-　可生成注册表补丁/加载器
-　可在补丁应用程序中附加文件
-　从注册表中获取文件路径
-　使用 CRC32 和文件大小校验
-　可对已加壳的文件进行补丁
-　可对生成的补丁应用程序加上

破解组织前管理员告诉你中国目前的破解组织现状——看了某个N年前的帖子而发，说实话我真的不忍心再看到那个帖子被翻来覆去地转载了，兄弟们，那是五年前甚至年代更久远的内容，忘到阿根廷去吧。

从自由之翼[TFW]辞去管理员职务以后，我终于可以正大光明地在这里说自由之翼而不去担心别人说我是在做广告。今天本来要睡觉，冒上来一看，竟然有一个《中国二十大破解论坛》的帖子，说实