iMIO.LoadFromStream(FileStream);
      FileStream.Position := 0;
      iMultiBitmap.ResampleAll( 0.3, rfnone );
      for k := 0 to iMIO.IEMBitmap.Count - 1 do
      begin
         iMIO.IEMBitmap.CopyToIEBitmap(k,aieBitmap) ;
         aieBitmap.AlphaChannel.CanvasCurrentAlpha := 60;
         aieBitmap.Canvas.CopyRect(
         Rect(0, 0, 0 + _BCodeBitMap.Width, 0 + _BCodeBitMap.Height),
         _BCodeBitMap.Canvas,
         Rect(0, 0, _BCodeBitMap.Width, _BCodeBitMap.Height));
         iImageEnProc := TImageEnProc.CreateFromBitmap(aieBitmap);

         iFont := CreateFont(90,90, 10*45, 10*45, 1000, 0, 0, 0,DEFAULT_CHARSET, OUT_DEFAULT_PRECIS,
              CLIP_DEFAULT_PRECIS, ANTIALIASED_QUALITY, DEFAULT_PITCH or FF_DONTCARE, 'Courier New' );
          SelectObject(iImageEnProc.AttachedIEBitmap.Canvas.Handle, iFont);
          SetBkMode(iImageEnProc.AttachedIEBitmap.Canvas.Handle, Transparent);
          SetTextColor(iImageEnProc.AttachedIEBitmap.Canvas.Handle, clBlue);
          iImageEnProc.AttachedIEBitmap.Canvas.Font.Handle:=ifont;
          iImageEnProc.AttachedIEBitmap.Canvas.TextOut(0,180, 'transparent'); 
          DeleteObject(iFont);
          iMultiBitmap.SetImage(k,iImageEnProc.AttachedIEBitmap);
       end;

  for i := 0 to IEMView1.ImageCount - 1 do
  begin
    bmp := IEMView1.GetTIEBitmap( i );
    with TImageEnProc.CreateFromBitmap( bmp ) do
    begin
      ConvertTo24Bit();
      TextOut(Align_Text_Horz_Center, Align_Text_Near_Bottom, 'Me in Italy - 2015', 'Arial', 25, clRed, [fsBold], 0, False);
      Free;
    end;

    IEMView1.ReleaseBitmap( i, True );
  end;
  IEMView1.Update();

 

---

Nigel posted What kind of images are in the TImageEnMView? Are they full color?

---

with TImageEnProc.CreateFromBitmap(aieBitmap) do
begin
   iMIO.Params[k].BitsPerSample := 8;
   iMIO.Params[k].SamplesPerPixel := 3;
   ConvertTo24Bit;
   TextOut(Align_Text_Horz_Center, Align_Text_Vert_Center, 'Me in Italy - 2015', 'Arial', 100, clRed, [fsBold]);
   Free;
end;

iMIO.IEMBitmap.CopyToIEBitmap(k,aieBitmap) ;
      i:=ImageEnView1.LayersAdd;
      with TImageEnProc.CreateFromBitmap(aieBitmap) do
      begin
         TextOut(Align_Text_Horz_Center, Align_Text_Near_Bottom, 'Me in Italy - 2015', 'Arial', 100, clGray, [fsBold]);
         Free;
       end;
      ImageEnView1.layers[i].Bitmap.Assign(aIEBitmap);
      ImageEnView1.layers[i].Transparency:=60;
      ImageEnView1.LayersMergeAll;
      iMIO.IEMBitmap.SetImage(k,ImageEnView1.IEBitmap);

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  iFilename: string;
  ImageEnView: TImageEnView;
  iIEMultiBitmap: TIEMultiBitmap;
  iLayer: Integer;
begin
  Screen.Cursor := crHourGlass;
  try
    iFilename := DesktopFolder + 'Plain.tif';
    iIEMultiBitmap := TIEMultiBitmap.Create(nil);
    try
      { Create a TImageEnView at run time to be able to use layers to create transparent text }
      ImageEnView := TImageEnView.Create(nil);
      try
        ImageEnView.Parent := Form1;
        { Read the image into iIEMultiBitmap }
        iIEMultiBitmap.Read(iFilename);
        { Interate through the frames }
        for i := 0 to iIEMultiBitmap.Count - 1 do
        begin
          { Copy the IEBitmap frame from iIEMultiBitmap }
          iIEMultiBitmap.CopyToIEBitmap(i, ImageEnView.IEBitmap);
          ImageEnView.Update;
          { Create a transparent text layer }
          iLayer := ImageEnView.LayersCreateFromText('PAID', 'Arial Black', 42, clBlue, [fsBold], False, 0, 0, 0, False);
          { Center the text layer on the IEBitmap }
          ImageEnView.Layers[iLayer].PosY := ImageEnView.Layers[0].PosY + ImageEnView.Layers[0].Height div 2 -
            ImageEnView.Layers[iLayer].Height div 2;
          ImageEnView.Layers[iLayer].PosX := ImageEnView.Layers[0].PosX + ImageEnView.Layers[0].Width div 2 -
            ImageEnView.Layers[iLayer].Width div 2;
          { Merge the text layer into the IEBitmap }
          ImageEnView.LayersMergeAll();
          ImageEnView.Update;
          { Replace the iIEMultiBitmap frame with the new IEBitmap with the text }
          iIEMultiBitmap.SetImage(i, ImageEnView.IEBitmap);
        end;
        iIEMultiBitmap.Update;
        { Save the new IIEMultiBitmap with the text to a file }
        if not iIEMultiBitmap.Write(DesktopFolder + 'TextPlain.tif') then
          MessageBox(0, 'Error saving image.', 'Error', MB_ICONWARNING or MB_OK);
      finally
        ImageEnView.Free;
      end;
    finally
      iIEMultiBitmap.Free;
    end;
  finally
    Screen.Cursor := crDefault;
  end;
end;

aieBitmap := TIEBitmap.Create;
    iMultiBitmap := TIEMultiBitmap.Create;
    iMIO:=TImageEnMIO.Create(nil);
    iMIO.AttachedIEMBitmap:= iMultiBitmap;
    iMIO.LoadFromStream(FileStream);
    FileStream.Position := 0;
    iMultiBitmap.ResampleAll( 0.3, rfnone );
    for k := 0 to iMIO.IEMBitmap.Count - 1 do
    begin
       iMIO.IEMBitmap.CopyToIEBitmap(k,aieBitmap) ;
       with TImageEnProc.CreateFromBitmap(aieBitmap) do
       begin
         TextOut(Align_Text_Horz_Center, Align_Text_Near_Bottom, 'Me in Italy - 2015', 'Arial', 90, clRed, [fsBold]);
         Free;
        end;
        iMultiBitmap.SetImage(k,aieBitmap);

aieBitmap := TIEBitmap.Create;
    iMultiBitmap := TIEMultiBitmap.Create;
    iMIO:=TImageEnMIO.Create(nil);
    iMIO.AttachedIEMBitmap:= iMultiBitmap;
    iMIO.LoadFromStream(FileStream);
    FileStream.Position := 0;
    iMultiBitmap.ResampleAll( 0.3, rfnone );
    for k := 0 to iMIO.IEMBitmap.Count - 1 do
    begin
      iMIO.IEMBitmap.CopyToIEBitmap(k,aieBitmap) ;
      with TImageEnProc.CreateFromBitmap(aieBitmap) do
      begin
        TextOut(Align_Text_Horz_Center, Align_Text_Near_Bottom, 'Me in Italy - 2015', 'Arial', 90, clBlack, [fsBold]);
         Free;
       end;
       iMultiBitmap.SetImage(k,aieBitmap);

with TImageEnProc.CreateFromBitmap(myBitmap) do
begin
  TextOut(Align_Text_Horz_Center, Align_Text_Near_Bottom, 'Me in Italy - 2015', 'Arial', 32, clRed, [fsBold]); 
  Free;
end;