[Intelext]

Код:

1 2 3 4 5 6 7 8

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

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