var SSE: TSlideShowEngine;
 
const
     AP: array [0..13] of TPoint = ((X: 100; Y:75),
                                   (X: 320; Y:70),
                                   (X: 320; Y:150),
                                   (X: 240; Y:160),
                                    ...
                                   (X: 105; Y:370));
...
  SSE := TSlideShowEngine.Create(640, 480, 31);
  SSE.ControllerMode := cmPopUp;
  SSE.IsLoop := true;
 
  SSE.AddFromFile('map.jpg', false).AddAction(ptLayer, 1, 0, 1).Place(0, 0);
  with SSE.AddFromFile('butterfly.swf', false).AddAction(ptLayer, 2, 2, 20000) do
    begin
      MoveToPath(20, true, false, AP);
      Center(50, 50);
    end;
 
  SSE.Execute;
  SSE.SaveToFile('map.swf');
  SSE.Free;