// Get list of changed layers changedLayers := ''; for I := 0 to ImageEnView1.LayersCount -1 do if ImageEnView1.Layers[I].Modified then changedLayers := changedLayers + IntToStr( I ) + ', ';
// Mark all layers as unmodified for I := 0 to ImageEnView1.LayersCount -1 do ImageEnView1.Layers[I].Modified := False;