Image и Form

[Claster]

Всем доброго времени суток.......уважаемые профессионала скажите плииз как реализовать следующее: Есть форма BorderStyle=bsNone(т.е форма без заголовка), вместо заголовка, на форме компонент Image с параметром Align=alTop, как сделать что бы при перемещении Image он двигал с собой форму (что бы Image играл роль заголовка формы)

[MaxNik2009]

вот тебе перемещение за image:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, WM_NCLBUTTONDOWN, HTCaption, 0);
end;

[Claster]

ОГРОМНОЕ СПАСИБО, ТО ЧТО НАДО