Перемещение окна вне заголовка 2

Нужно объявить процедуру в частных объявлениям (после ключевого слова Private):

private
  { Private declarations }
  procedure WMNCHitTest (var M: TWMNCHitTest); message wm_NCHitTest;

В области implementation описываем процедуру так:

implementation
{$R *.DFM}

procedure TForm1.WMNCHitTest (var M:TWMNCHitTest);
begin
  inherited;
  if M.Result = htClient then 
    M.Result := htCaption;
end;

Мы выдаём клиентскую область окна за заголовочную область.