[bulc]

Con esta pequeña corrección, las bolas ya se mueven.

Código Delphi [-]
procedure TForm1.ImagesMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   //  if ssCtrl in Shift then
  //begin
     CtrlPress:= True;
    PriorSpot.X  :=  X;    //PriorSpot := Point( X,Y);
    PriorSpot.Y := Y;
  //end;
end;

procedure TForm1.ImagesMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if CtrlPress then
     begin
      (Sender as TImage).Left := TImage(Sender).Left - (PriorSpot.X - X);
      (Sender as TImage).Top  := TImage(Sender).Top - ( PriorSpot.Y - Y);
    end;
end;

Ahora veo tu última modificación, Ecfisa.
Gracias.
bulc