uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.ComCtrls, System.Contnrs,
  hyieutils, iexBitmaps, hyiedefs, iesettings, iexRulers, imageenview, imageenio, ieopensavedlg, ieview;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    AddLayerAndSave1: TButton;
    OpenImageEnDialog1: TOpenImageEnDialog;
    SaveImageEnDialog1: TSaveImageEnDialog;
    Open1: TButton;
    ImageEnView1: TImageEnView;
    StatusBar1: TStatusBar;
    procedure AddLayerAndSave1Click(Sender: TObject);
    procedure Open1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure TForm1.AddLayerAndSave1Click(Sender: TObject);
var
  iFilename: string;
  iExtension: string;
  iFileType: TIOFileType;
  iImageEnView: TImageEnView;
  iLayer: integer;
begin
  iFilename := 'G:\Images\PSD\Beach.psd';
  OpenImageEnDialog1.InitialDir := 'G:\Images\PSD';
  if OpenImageEnDialog1.Execute then
  begin
    if FileExists(OpenImageEnDialog1.FileName) then
    begin
      iFilename := OpenImageEnDialog1.FileName;
      iExtension := ExtractFileExt(iFilename);
    end;
    if IsKnownFormat(iFilename) then
    begin
      iFileType := IEExtToFileFormat(iExtension);
      if iFileType = ioPSD then
      begin
        iImageEnView := TImageEnView.Create(nil);
        try
          iImageEnView.IO.Params.PSD_LoadLayers := True;
          iImageEnView.IO.Params.PSD_ReplaceLayers := True;
          iImageEnView.IO.LoadFromFilePSD(iFilename);
          iImageEnView.Update;
          MessageBox(0, PChar('The loaded image has ' + IntToStr(iImageEnView.LayersCount) + ' layers.'), 'Layer Count',
            MB_ICONINFORMATION or MB_OK);
          if (MessageBox(0, 'Add a layer to the PSD file?', 'Add a layer?', MB_ICONQUESTION or MB_YESNO) = mrYes) then
          begin
            iLayer := iImageEnView.LayersAdd;
            iImageEnView.Layers[iLayer].PosX := 0;
            iImageEnView.Layers[iLayer].PosY := 0;
            if (MessageBox(0, 'Save PSD file?', 'Save', MB_ICONQUESTION or MB_YESNO) = mrYes) then
            begin
              if SaveImageEnDialog1.Execute then
              begin
                iFilename := SaveImageEnDialog1.FileName;
                iImageEnView.IO.SaveToFilePSD(iFilename);
                if iImageEnView.IO.Aborting then
                begin
                  MessageBox(0, 'There was an error saveing image.', 'Error', MB_ICONWARNING or MB_OK);
                  exit;
                end;
                MessageBox(0, PChar('The saved image has ' + IntToStr(iImageEnView.LayersCount) + ' layers.'), 'Layer Count',
                  MB_ICONINFORMATION or MB_OK);
              end;
            end;
          end;
        finally
          iImageEnView.Free;
        end;
      end;
    end;
  end;