Form tidak bisa di geser Delphi

Form default ada title bar nya, tapi tidak bisa di geser / di drag

unit Unit1;<br /><br />interface<br /><br />uses<br />  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />  Dialogs;<br /><br />type<br />  TForm1 = class(TForm)<br />  private<br />    { Private declarations }<br /> procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;<br />  public<br />    { Public declarations }<br />  end;<br /><br />var<br />  Form1: TForm1;<br /><br />implementation<br /><br />{$R *.dfm}<br /><br />procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);<br />begin<br /> if ((msg.CmdType and $FFF0) = SC_MOVE) then begin msg.Result:=0;<br /> exit;<br /> end;<br /> inherited;<br />end;<br /><br />end.