Нарисовать военный вертолёт

// Создание спрайта и его состояний
uses 
  GraphABC,ABCSprites,ABCObjects,Events;
var
  s: SpriteABC;
 
begin
  Window.Title := 'Создание спрайта';
  SetWindowSize(800, 600);
  CenterWindow;
  ClearWindow(clBlack);
  
  // Создание спрайта и добавление в него кадров
  s := new SpriteABC(150, 100, 'bmp\frame_0001.bmp');
  s.Add('bmp\frame_0002.bmp');
  
  // Добавление состояний к спрайту
  s.AddState('fly', 2); // Летать - 2 кадра
  
  // Задание скорости спрайт-анимации (1..10)
  s.Speed := 9;
  
  // Сохранение спрайта в "длинный" рисунок и создание информационного файла спрайта
  s.SaveWithInfo('spr.png');
  
  s := new SpriteABC(150, 100, 'spr.spinf');
  
  // Переход к следующему состоянию спрайта
  if s.State < s.StateCount then
    s.State := s.State + 1
  else 
    s.State := 1;
end.