procedure TForm1.CropAllLayers1Click(Sender: TObject);
var
  i: integer;
begin
  if ImageEnVect1.Selected then
  begin
    ImageEnVect1.SaveSelection;
    // Crop each layer
    for i := ImageEnVect1.LayersCount - 1 downto 0 do
    begin
      ImageEnVect1.LayersCurrent := i;
      ImageEnVect1.RestoreSelection(false, iersSyncLayers);
      ImageEnVect1.Proc.CropSel;
      ImageEnVect1.CurrentLayer.PosX := 0;
      ImageEnVect1.CurrentLayer.PosY := 0;
    end;
    ImageEnVect1.DiscardSavedSelection;
    ImageEnVect1.MouseInteract := [miMoveLayers, miResizeLayers];
    ImageEnVect1.Cursor := crHandPoint;
    ImageEnVect1.DeSelect;
  end
  else
    MessageBox(0, 'No Selection to Crop', 'Warning', MB_ICONWARNING or MB_OK);
end;