[Delphi]Перемещение компонента к щелчку мыши.

[Fiery Fox]

Читал темы, смотрел предлогаемые исходники.
Везде рисуется кружек и к мыши.
Мне надо что бы выбранный мною компонент (лейбл, баттон, имейдж) летел к щелчку.
Самый самый простой код.
Кто подскажет?

[Ckomoroh]

На форме таймер и Image

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Timer1Timer(Sender: TObject);
  private
    vx,vy,i:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

begin
  vx:=image1.left-x;
  vy:=image1.Top-y;
  i:=30;
  timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  i:=i-1;
  image1.left:=image1.left - vx div 30;
  image1.Top:=image1.Top - vy div 30;
  if i<0  then timer1.Enabled:=false;
end;

end.

[Fire ShadoW]

Спасибо, я тоже это искал =)