Как сделать так, чтобы форму можно было тостать не только за заголовок?

[Никки]

Мне необходимо таскать форму не только за заголовок, а за любую её часть!!
Как такое сделать?

[Crivel]

Обсуждалось не один раз.

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Form1.Perform(WM_SysCommand,$F012,0);
end;