[Xclusive]

Помогите Pls!
Как заставить двигаться Timage так что-бы при нажатии мышкой по форме, TImage двигался на координаты клика.
Помогите кто может! Заранее благодарен.

[Intelext]

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  PosX, PosY : integer;
begin
PosX := X;
PosY := Y;
end;

вное узнать корденаты. Потом можно напремер поставить таймер и на нём IF стейтменты каторые будут двигать картинку по одному или по скоко захопчеш пикселей в нужную дирекцыю.