begin
  AToolbox := TImageEnVect.Create(nil);
  try
    AToolbox.Assign(ImagePreview);
    AToolbox.MUnit := Image.Units;
    AToolbox.SetScaleFromPixels(Image.Pixels, Image.Distance);
    ImagePreview.CopyAllObjectsTo(AToolBox);
    AToolbox.CopyObjectsToBack;
    ClipBoard.Assign(AToolbox.Bitmap);
  finally
    AToolbox.Free;
  end;
end;

procedure TForm1.CopyAsBitmap1Click(Sender: TObject);
{ Copy all layers and objects to the clipboard as a bitmap. }
begin
  { Draw the layers to ImageEnVectPreview1... also draws the objects }
  ImageEnVect1.LayersDrawTo(ImageEnVectPreview1.IEBitmap);
  ImageEnVectPreview1.Update;
  ImageEnVectPreview1.Proc.CopyToClipboard(False);
end;