procedure TForm1.AddShadows1Click(Sender: TObject);
{ Add Soft Shadow to all layers. }
var
  iLayer: integer;
begin
  for iLayer := ImageEnView1.LayersCount-1 downto 0 do
  begin
    ImageEnView1.LayersCurrent := iLayer;
    ImageEnView1.Proc.AddSoftShadow();
  end;
end;

procedure TForm1.DeleteShadows1Click(Sender: TObject);
{ Remove Soft Shadow from all layers. }
var
  iLayer: integer;
begin
  for iLayer := ImageEnView1.LayersCount-1 downto 0 do
  begin
    ImageEnView1.LayersCurrent := iLayer;
    ImageEnView1.RemoveAlphaChannel(False);
    { Make the layer transparent }
      ImageEnView1.Proc.SetTransparentColors(ImageEnView1.Layers[ilayer].Bitmap.Pixels[0,
        ImageEnView1.Layers[ilayer].Bitmap.Height - 1],
          ImageEnView1.Layers[ilayer].Bitmap.Pixels[0,
        ImageEnView1.Layers[ilayer].Bitmap.Height - 1], 0);
  end;
end;