// writes "Hello!" in each frame of "input.avi" and writes the resulting video to "output.avi"
var
  frameIndex:integer;
  bmp:TIEBitmap;
  io:TImageEnIO;
begin
  bmp := TIEBitmap.Create();
  io := TImageEnIO.CreateFromBitmap(bmp);

  try
    io.OpenMediaFile('input.avi');
    io.CreateAVIFile('output.avi');
    for frameIndex:=100 to 200 do
    begin
      io.LoadFromMediaFile(frameIndex);
      with bmp.Canvas do
      begin
        Pen.Color := clRed;
        Font.Size := 40;
        TextOut(0, 0, 'Hello!');
      end;
      io.SaveToAVI();
    end;
    io.CloseAVIFile();
    io.CloseMediaFile();

  finally
    io.Free();
    bmp.Free();
  end;
end;