！！大家都来看看，简单问题，任意位置拖动窗口的问题，先谢谢大家来帮忙了！！！

Question

如下，是我的代码，但是我第一次调试时，系统框提出出错（也可能提示的不是这个意思，英文的，看不懂），我保存到文件夹后就可以调试了，不再弹系统框提示了，但是调试时，鼠标移上去后，没有任何反应，程序调试也无代码错误，也就是代码无错，但是代码没有效果，大侠，靠你们了！！！急！！！！
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormMouseDown(Sender:TObject;Button:TMouseButton;
        Shift:TShiftState;X,Y:Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormMouseDown(Sender:TObject; Button: TMouseButton;
   Shift:TShiftState;X,Y:Integer);
begin
  ReleaseCapture;
  PerForm(WM_SYSCOMMAND,$F012,0);
end;end.

Answer 1

不好意思，自己解决了，原来没有设置窗全的ONMOUSEDOWN，看来什么都还要自己先多想想啊，大家进来拿分吧