SPECIAL OFFER        Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

⤷ Immovable form

If you want that your form will immovable, then you can intercept WM_NCHITTEST message.
And after that, change Result parameter of this message:

type
  TForm1 = class(TForm)
  private
    procedure WMNCHITTEST(var Msg: TWMNCHitTest); 
      message WM_NCHITTEST;
    { Private declarations }
  public
    { Public declarations }
  end;
...
procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
 DefaultHandler(Msg);
 if Msg.Result=HTCAPTION then
   Msg.Result:=0;
end;
More for developers
Databases for Amazon Associates
Amazon Categories
Amazon Nodes