var
  col, row: integer;
  w, h: integer;
begin
  // layer 0 (CMYK image, you can also load native CMYK image)
  ImageEnView1.LegacyBitmap := false;
  ImageEnView1.IO.LoadFromFile('input.jpg');
  ImageEnView1.IEBitmap.PixelFormat := ieCMYK;

  w := ImageEnView1.IEBitmap.Width;
  h := ImageEnView1.IEBitmap.Height;

  ImageEnView1.LayersAdd(w, h, ie8g); // layer 1 = C
  ImageEnView1.LayersAdd(w, h, ie8g); // layer 2 = C
  ImageEnView1.LayersAdd(w, h, ie8g); // layer 3 = C
  ImageEnView1.LayersAdd(w, h, ie8g); // layer 4 = C

  for row := 0 to h - 1 do
  begin
    for col := 0 to w - 1 do
    begin
      with ImageEnView1.Layers[0].Bitmap.Pixels_ieCMYK[col, row] do
      begin
        ImageEnView1.Layers[1].Bitmap.Pixels_ie8[col, row] := c;
        ImageEnView1.Layers[2].Bitmap.Pixels_ie8[col, row] := m;
        ImageEnView1.Layers[3].Bitmap.Pixels_ie8[col, row] := y;
        ImageEnView1.Layers[4].Bitmap.Pixels_ie8[col, row] := k;
      end;
    end;
  end;
  
end;