Как перемещать?

[Черничный]

ребята нашел еще код, что б убрать заголовок окна:

это в privat:
procedure CreateParams(var Params : TCreateParams); override;

Это код:

procedure TForm1.CreateParams(var Params : TCreateParams);

begin
  inherited Createparams(Params);
  with Params do
    Style := (Style or WS_POPUP) and not WS_DLGFRAME;
end;

Форма получается хорошая, без заголовка с границей, но не перемещается? Как можно это организовать? Я бы хотел два варианта:
1. Перемещение за любую точку формы
2. В верху кинуть к примеру label или image по ширине окна и что б перемещать можно было за них.

[eoln]

Обсуждалось - поиск по форуму.
Вот пример перетаскивания за лэйбл

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;  
begin
  ReleaseCapture;
  Form1.perform(WM_SysCommand, SC_DragMove, 0);
end;

[Черничный]

Впринципе этот код и для image и для label подходит, вообщем то мне больше и не надо. Спасиба. Вопрос мои исчерпан.

[Черничный]

eoln, а что это константа означает?

[Карась]

Опытным путём было подобранно:

$F000 (Center cursor on the form)
$F001 (Resize from left)
$F002 (Resize from right)
$F003 (Resize from up)
$F004 (Lock the bottom right corner of the form, the up left corner move for resize)
$F005 (Same from bottom left corner)
$F006 (Lock up right and left border, resize other)
$F007 (Lock up and right border, resize other border)
$F008 (Lock left and up border and resize other)
$F009 (Drag from anywhere)
$F010 (Put cursor centered at the upper order)
$F020 (Auto-Minimize Form)
$F030 (Auto-Maximize Form)
$F040 (Stop! You don't want that, it will lock all mouse click and make
you reboot)

Поэкспереминтируйте.....