procedure WMNChittest(var m: TWMNChittest); message WM_NCHITTEST;    procedure TForm2.WMNChittest(var m: TWMNCHITTEST);
begin
  inherited;
  if m.Result = htCaption then m.Result := 0;
end;