// test if the clipboard contains image data:
  if ImageEnProc1.CanPasteFromClipboard then
  begin
    CodeSite.Send('CAN PASTE IMAGE');
    var bmp := TIEBitmap.Create;
    try
      var IO := TImageEnIO.CreateFromBitmap(bmp);
      try
        IO.Params.PNG_TextKeys.Add('Author');
        IO.Params.PNG_TextValues.Add('Peter');
        IO.SaveToFilePNG(AFilename); // Error: Bitmap is not valid
      finally
        IO.Free;
      end;
    finally
      bmp.Free;
    end;
  end;

  if ImageEnProc1.CanPasteFromClipboard then
  begin
    ImageEnProc1.PasteFromClipboard();
    var IO := TImageEnIO.CreateFromBitmap( ImageEnProc1.AttachedIEBitmap );
    try
      IO.Params.PNG_TextKeys.Add('Author');
      IO.Params.PNG_TextValues.Add('Peter');
      IO.SaveToFilePNG(AFilename); 
    finally
      IO.Free;
    end;
  end;

  var iev := TImageEnView.Create( nil);
  try
    if iev.Proc.CanPasteFromClipboard then
    begin
      iev.Proc.PasteFromClipboard();
      iev.IO.Params.PNG_TextKeys.Add('Author');
      iev.IO.Params.PNG_TextValues.Add('Peter');
      iev.IO.SaveToFilePNG(AFilename); 
    end;
  finally
    iev .Free;
  end;