Код:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
PosX, PosY : integer;
begin
PosX := X;
PosY := Y;
end;
вное узнать корденаты. Потом можно напремер поставить таймер и на нём IF стейтменты каторые будут двигать картинку по одному или по скоко захопчеш пикселей в нужную дирекцыю.