Можно без констант, сразу вот так:
Код:
procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
perform(WM_SysCommand, $F012 {тот же магический номер}, 0);
end;
Хотя разницы никакой )))