procedure TForm1.CopyLayersAndObjects1Click(Sender: TObject);
{ Copy ImageEnVect1 layers and objects To ImageEnVect2 }
var
  iMemoryStream: TMemoryStream;
begin
  iMemoryStream := TMemoryStream.Create;
  try
    ImageEnVect1.LayersSaveToStream(iMemoryStream);
    iMemoryStream.Position := 0;
    { Copy all layers from ImageenVect1 to ImageEnVect2. This maintains the alpha channel }
    ImageEnVect2.LayersLoadFromStream(iMemoryStream);
    { Copy all objects from ImageEnVect1 to ImageEnVect2 }
    ImageEnVect1.CopyAllObjectsTo(ImageEnVect2);
    ImageEnVect2.Update;
  finally
    iMemoryStream.Free;
  end;
end;