procedure TForm1.MoveLayerToBack1Click(Sender: TObject);
{ Move current layer to back. }
begin
  if ImageEnView1.LayersCurrent > 1 then
  begin
    with ImageEnView1 do
      LayersMove(LayersCurrent, LayersCurrent - 1);
    RefreshControls;
    RefreshLayerViewer;
  end
  else
    MessageBox(0, PChar('Layer ' + IntToStr(ImageEnView1.LayersCurrent) + ' is the bottom most layer.'), 'Can Not Move Layer', MB_ICONWARNING or
      MB_OK or MB_TOPMOST);
end;

procedure TForm1.MoveLayerToFront1Click(Sender: TObject);
{ Move current layer to front. }
begin
  if ImageEnView1.LayersCurrent <> ImageEnView1.LayersCount - 1 then
  begin
    with ImageEnView1 do
      LayersMove(LayersCurrent, LayersCurrent + 1);
    RefreshControls;
    RefreshLayerViewer;
  end
  else
    MessageBox(0, PChar('Layer ' + IntToStr(ImageEnView1.LayersCurrent) + ' is the top most layer.'), 'Can Not Move Layer', MB_ICONWARNING or
      MB_OK or MB_TOPMOST);
end;