Сначала объявить вот это
Код:
procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if move then
begin
(Sender as TImage).SetBounds(
(Sender as TImage).Left+X-X0,
(Sender as TImage).Top+Y-Y0,
(Sender as TImage).width,
(Sender as TImage).height);
end;
end;
затем нужно для всех image в обжект инспекторе сделать так
Код:
OnMouseDown = Image2MouseDown;
OnMouseMove = Image2MouseMove;
OnMouseUp = Image2MouseUp;
и всё