Перемещение image

[КатенокСПб]

Прошу вашей помощи!
Честно пыталась найти решение проблемы, но так ничего не нашла.
Делаю программу, есть image. Как сделать, чтобы пользователь мог таскать его по экрану мышкой?
Понимаю, что необходимо использовать события onmousedown, onmousemove, и onmouseup, но ничего не получается, помогите пожалуйста!
Или дайте ссылку, если это уже обсуждалось.

[Скандербег]

http://www.delphikingdom.com/asp/vie...?catalogid=342.
Статья большая, но решение этой проблемы можно найти в разделе "Движение - это жизнь".

[Terran]

Можете ещё глянуть тут: http://mihandelphi.narod.ru/docs/view/move_image.htm

[_SERGEYX_]

Вот кратенько:

var    
  x0, y0: integer;
  move: boolean;
  rec: TRect; //это все глобальные переменные



procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if button<>mbLeft then
    move:=false
  else
  begin
    move:=true;
    x0:=x;
    y0:=y;
    rec:=image1.BoundsRect; //запоминаем контур картинки
  end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if move then
  begin
    Form1.Canvas.DrawFocusRect(rec); //рисуем рамку
    with rec do
    begin
      left:=Left+x-x0;
      top:=Top+y-y0;
      right:=right+x-x0;
      bottom:=bottom+y-y0;
      x0:=x;
      y0:=y; // изменяем координаты
    end;
    Form1.Canvas.DrawFocusRect(rec); // рисуем рамку на новом месте
  end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Form1.Canvas.DrawFocusRect(rec);
  with image1 do begin
    setbounds(rec.left+x-x0,rec.top+y-y0,width,height); //перемещаем картинку
    move:=false;
  end;
end;