i:= imgview1.LayersCurrent;
   imgview1.currentlayer.Name := layernametext.Text;
   imgview1.update;

/// this part is for loading or refreshing the layer viewer
 for i := 0 to Imgview1.LayersCount - 1 do
  begin
    idx := ImageEnMView1.AppendImage;
    ImageEnMView1.SetIEBitmap(idx, Imgview1.Layers[i].Bitmap);
    ImageEnMView1.ImageTopText[i] := inttostr(i) + ' '+ imgview1.CurrentLayer.name;
  end;
  ImageEnMView1.SelectedImage := Imgview1.LayersCurrent;

procedure TForm1.OpenLayers1Click(Sender: TObject);
var
  i: Integer;
begin
  OpenPictureDialog1.Filter := 'Layer (*.lyr)| *.lyr';
  if OpenPictureDialog1.Execute then
  begin
    if ImageEnView1.LayersLoadFromFile(OpenPictureDialog1.FileName) then
    begin
      for i := 0 to ImageEnView1.LayersCount - 1 do
      begin
        ImageEnMView1.AppendImage;
        if ImageEnView1.Layers[i].Name = '' then
          ImageEnView1.Layers[i].Name :=
            AnsiString('Layer ' + IntToStr(i));
        ImageEnMView1.ImageTopText[i] :=
          string(ImageEnView1.Layers[i].Name);
        ImageEnMView1.SetIEBitmapEx(i, ImageEnView1.Layers[i].Bitmap);
       end;
       ImageEnMView1.Update;
    end;
end;

procedure TForm1.SaveLayers1Click(Sender: TObject);
begin
  SavePictureDialog1.Filter := 'Layer (*.lyr)| *.lyr';
  if SavePictureDialog1.Execute then
  begin
    ImageEnView1.LayersSaveToFile(SavePictureDialog1.FileName);
  end;
end;