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

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

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

[trminator]

Пусть хотим "потаскать" Panel1

// Начинаем тащить
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    if Button = mbLeft then
        Panel1.BeginDrag(false);
end;

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
// решаем, разрешить ли кидать этот объект на форму
    Accept := Source is TPanel; // Форма принимает только объекты TPanel
end;

// Изменяем координаты перетащенного объекта
procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
    (source as TPanel).left := x;
    (source as TPanel).top := y;
end;