Подскажите как в паскале (Pascal abc . Net) сохранить кучу отрендеренных bmp в один файл.

uses GraphABC, System.IO, System.Diagnostics;

begin
  var text := 'Поезд чух чух!';
  var x := 600;

  SetFontSize(75);
  SetWindowSize(600, 300);
  CenterWindow;

  // Временная директория для кадров
  var framesDir := Path.Combine(
    Path.GetTempPath,
    'PascalGif_' + System.Guid.NewGuid.ToString
  );

  Directory.CreateDirectory(framesDir);

  LockDrawing;

  for var i := 0 to 99 do
  begin
    ClearWindow(clWhite);
    TextOut(x, 100, text);
    Redraw;

    // Нумерация с ведущими нулями:
    // frame000.bmp, frame001.bmp, ...
    var frameName := Path.Combine(
      framesDir,
      'frame' + i.ToString('D3') + '.bmp'
    );

    SaveWindow(frameName);

    x -= 10;
  end;

  UnlockDrawing;

  // ImageMagick должен быть установлен,
  // а magick.exe должен находиться в PATH.
  var arguments :=
    '-delay 2 -loop 0 "' +
    Path.Combine(framesDir, 'frame*.bmp') +
    '" "train.gif"';

  var processInfo := new ProcessStartInfo;
  processInfo.FileName := 'magick.exe';
  processInfo.Arguments := arguments;
  processInfo.UseShellExecute := false;
  processInfo.CreateNoWindow := true;

  var process := Process.Start(processInfo);
  process.WaitForExit;

  if process.ExitCode = 0 then
  begin
    // Удаляем временные BMP-файлы
    Directory.Delete(framesDir, true);
    Writeln('Создан файл train.gif');
  end
  else
    Writeln('Ошибка создания GIF. Код: ', process.ExitCode);
end.

x -= 5;

PresentationCore
WindowsBase

uses
  GraphABC,
  System,
  System.IO,
  System.Collections.Generic,
  System.Windows.Media.Imaging;

procedure CreateAnimatedGif(
  frameFiles: sequence of string;
  outputFile: string;
  delay: word
);
begin
  var encoder := new GifBitmapEncoder;
  var firstFrame := true;

  foreach var frameFile in frameFiles do
  begin
    var bitmap := new BitmapImage;

    bitmap.BeginInit;
    bitmap.CacheOption := BitmapCacheOption.OnLoad;
    bitmap.UriSource := new Uri(frameFile, UriKind.Absolute);
    bitmap.EndInit;
    bitmap.Freeze;

    var metadata := new BitmapMetadata('gif');

    // Задержка указывается в сотых долях секунды.
    // 2 = 20 миллисекунд.
    metadata.SetQuery('/grctlext/Delay', delay);

    // После показа кадра заменять его следующим.
    metadata.SetQuery('/grctlext/Disposal', byte(2));

    // Для первого кадра добавляем бесконечное повторение.
    if firstFrame then
    begin
      metadata.SetQuery('/appext/Application', 'NETSCAPE2.0');
      metadata.SetQuery(
        '/appext/Data',
        new byte[]($03, $01, $00, $00)
      );

      firstFrame := false;
    end;

    var frame := BitmapFrame.Create(
      bitmap,
      bitmap.Thumbnail,
      metadata,
      bitmap.ColorContexts
    );

    encoder.Frames.Add(frame);
  end;

  var stream := new FileStream(
    outputFile,
    FileMode.Create,
    FileAccess.Write
  );

  try
    encoder.Save(stream);
  finally
    stream.Close;
  end;
end;

begin
  var text := 'Поезд чух чух!';
  var x := 600;

  var framesDirectory := Path.Combine(
    Path.GetTempPath,
    'PascalABC_Gif_' + Guid.NewGuid.ToString
  );

  Directory.CreateDirectory(framesDirectory);

  SetWindowSize(600, 300);
  CenterWindow;
  SetFontSize(75);

  var frameFiles := new List<string>;

  LockDrawing;

  for var i := 0 to 99 do
  begin
    ClearWindow(clWhite);

    TextOut(x, 100, text);
    Redraw;

    var frameFile := Path.Combine(
      framesDirectory,
      'frame' + i.ToString('D3') + '.bmp'
    );

    SaveWindow(frameFile);
    frameFiles.Add(frameFile);

    x -= 10;
  end;

  UnlockDrawing;

  CreateAnimatedGif(
    frameFiles,
    Path.GetFullPath('train.gif'),
    2
  );

  Directory.Delete(framesDirectory, true);

  Writeln('Создан файл:');
  Writeln(Path.GetFullPath('train.gif'));
end.

CreateAnimatedGif(frameFiles, 'train.gif', 2);

CreateAnimatedGif(frameFiles, 'train.gif', 5);