Something

procedure TForm1.WMNCHitTest (var Msg: TWMNCHitTest);
begin
  inherited;
  if (Msg.Result = htClient) and (Msg.YPos < Label1.Height + Top + GetSystemMetrics(sm_cyFrame)) then
    Msg.Result := htCaption;
end;