FMultiBitmap.Write(ThisTempFile);

// append the screenshot bitmap to the gif multi bitmap:
  var idx := FMultiBitmapGIF.AppendImage(FIOGIFScreenshot.IEBitmap);
  FMultiBitmapGIF.Params[idx].BitsPerSample := 8;
  FMultiBitmapGIF.Params[idx].SamplesPerPixel := 1;
  FMultiBitmapGIF.Params[idx].GIF_DelayTime := 10;

FMultiBitmap := TIEMultiBitmap.Create; // for storing the animated GIF    
FMultiBitmap.OnProgress := MultiBitmapProgress;
	
procedure TForm1.MultiBitmapProgress(Sender: TObject; per: integer);
begin
  ProgressBarSave.Position := per;
end;

procedure OptimizeGIFImages(MultiBitmap: ImageEn.TIEMultiBitmap);
var
  i: Integer;
  Identical: Boolean;
begin
  i := 0;
  while i < MultiBitmap.Count - 1 do
  begin
    Identical := CompareImages(MultiBitmap.Bitmap[i], MultiBitmap.Bitmap[i + 1]);
    if Identical then
    begin
      // Increase the GIF_DelayTime of the current image
      MultiBitmap.Params[i].GIF_DelayTime := MultiBitmap.Params[i].GIF_DelayTime + MultiBitmap.Params[i + 1].GIF_DelayTime;
      
      // Delete the subsequent identical image
      MultiBitmap.Delete(i + 1);
    end
    else
      Inc(i);
  end;
end;

function CompareImages(Image1, Image2: TIEBitmap): Boolean;
begin
  // Implement a function to compare two images
  // Return True if the images are identical or nearly identical, otherwise False
end;

// Only add image if not identical to the last image
if ( mbmp.Count > 0 ) and ( newBitmap.GetHash = mbmp.ImageHash[ mbmp.Count - 1 ]) then
begin
  // Image is same as last one, increase display time
  mbmp.Params[ mbmp.Count - 1 ].GIF_DelayTime := mbmp.Params[ mbmp.Count - 1 ].GIF_DelayTime + newInterval;
end
else
begin
  // New image
  mbmp.AppendImage( newBitmap );
  mbmp.Params[ mbmp.Count - 1 ].GIF_DelayTime := newInterval;  
end;

FMultiBitmapGIF.Write(ThisTempFile);

formPreview.ImageEnMView1.AssignEx(FMultiBitmapGIF, True);
formPreview.ImageEnMView1.Playing := True;

formPreview.ImageEnMView1.AssignEx(FMultiBitmapGIF, True);
formPreview.ImageEnMView1.Playing := True;

FMultiBitmapGIF.Write(ThisTempFile);

formPreview.ImageEnMView1.AssignEx(FMultiBitmapGIF, True);
formPreview.ImageEnMView1.Playing := True;

formPreview.ImageEnMView1.AssignEx(FMultiBitmapGIF, TRUE);
CodeSite.Send('formPreview.ImageEnMView1.ImageDelayTime[0]', formPreview.ImageEnMView1.ImageDelayTime[0]);

formPreview.ImageEnMView1.AssignEx(FMultiBitmapGIF, True);
formPreview.ImageEnMView1.ThumbWidth  := FMultiBitmapGIF.ImageWidth[0];
formPreview.ImageEnMView1.ThumbHeight := FMultiBitmapGIF.ImageHeight[0];

procedure TformCapture.TimerCaptureTimer(Sender: TObject);
begin
  // create the screenshot from the target window:
  var h := FTargetHandle;
  if FIOGIFScreenshot.CaptureFromScreen(iecsSpecifiedWindow, FIncludeMouseCursor, h) = False then
    FIOGIFScreenshot.CaptureFromScreen(iecsSpecifiedWindow2, FIncludeMouseCursor, h);

  // append the screenshot bitmap to the gif multibitmap:
  var idx := FMultiBitmapGIF.AppendImage(FIOGIFScreenshot.IEBitmap);
  FMultiBitmapGIF.Params[idx].BitsPerSample := 8;
  FMultiBitmapGIF.Params[idx].SamplesPerPixel := 1;
  FMultiBitmapGIF.Params[idx].GIF_DelayTime := 10; // Display each frame for 1/10th of a second = 100 milliseconds
end;

// Show Preview:
  if CheckBoxPreview.Checked then
  begin
    formPreview.ImageEnMView1.Clear;
    formPreview.ImageEnMView1.AssignEx(FMultiBitmapGIF, True); // CopyParams does not work!

    formPreview.ImageEnMView1.ThumbWidth  := FMultiBitmapGIF.ImageWidth[0];
    formPreview.ImageEnMView1.ThumbHeight := FMultiBitmapGIF.ImageHeight[0];
    for var i := 0 to formPreview.ImageEnMView1.ImageCount - 1 do
      formPreview.ImageEnMView1.ImageDelayTime[i] := FMultiBitmapGIF.Params[i].GIF_DelayTime / 10; // delay ratio

    formPreview.Show;
    SetForegroundWindow(formPreview.Handle);
    formPreview.ImageEnMView1.Playing := True;
    formPreview.ImageEnMView1.Zoom := 100;
  end;

for var i := 0 to formPreview.ImageEnMView1.ImageCount - 1 do
  formPreview.ImageEnMView1.ImageDelayTime[i] := FMultiBitmapGIF.Params[i].GIF_DelayTime * 10; // delay ratio

procedure OptimizeMultiBitmap(AMultiBitmap: TIEMultiBitmap);
var
  i: Integer;
begin
  if not Assigned(AMultiBitmap) then EXIT;
  if AMultiBitmap.Count < 2 then EXIT;
  // Iterate through all images of the AMultiBitmap from High to Low, excluding the first one
  // because there's no previous image to compare with for the first image:
  for i := AMultiBitmap.Count - 1 downto 1 do
  begin
    // Compare the current image hash with the previous image hash:
    if AMultiBitmap.ImageHash[i] = AMultiBitmap.ImageHash[i - 1] then
    begin
      // If the hashes are the same, sum the current image's GIF_DelayTime
      // to the previous image's GIF_DelayTime:
      AMultiBitmap.Params[i - 1].GIF_DelayTime := AMultiBitmap.Params[i - 1].GIF_DelayTime + AMultiBitmap.Params[i].GIF_DelayTime;
      // Delete the current image since it's a duplicate:
      AMultiBitmap.DeleteImage(i);
    end;
  end;
end;

var
  mbmp: TIEMultiBitmap;
begin
  mbmp := TIEMultiBitmap.Create();
  mbmp.Read( 'D:\Testing_Multimedia\GIF_Animated\ABUELAT.GIF' );
  ImageEnMView2.Clear;
  ImageEnMView2.AssignEx( mbmp, True );
  lblDebug.Caption := IntToStr( mbmp.Params[0].GIF_DelayTime ) + '/' + IntToStr( ImageEnMView2.MIO.Params[0].GIF_DelayTime );
  mbmp.Free;
end;