Перетаскивание формы Опции

[Cтасикявичус]

Подскажите, ПЛИЗЗЗ!
Как мне сделать так, (и можно ли вообще) чтобы форму можно было перетаскивать с маста на место держась за TImage или TPaintBox.
Заранее очень благодарен.

[Atos]

Drag'n'Dock меня тоже интересует... Спасибо за пример, trminator !
А просто перетаскивание - оказывается, я невнимательно смотрел FAQ :p2:
Там есть такой простой способ:

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