// File | Save As...
procedure Tfmain.SaveAs1Click(Sender: TObject);
var
  filename:string;
begin
  filename:=ImageEnVect1.IO.ExecuteSaveDialog();
  if filename <> '' then
  begin
    // Store the image without vectorial objects
    ImageEnVect1.Proc.SaveUndo;
    // merge vectorial objects with the background image
    ImageEnVect1.CopyObjectsToBack(true);
    // save to disk
    ImageEnVect1.IO.SaveToFile(filename);
    // restore
    ImageEnvect1.Proc.Undo;
  end;
end;