procedure TForm1.ImageEnViewDrawLayerBox(Sender: TObject; ACanvas: TCanvas;
  LayerIndex: Integer);
begin
  with ACanvas do
  begin
    Pen.Style := psSolid;
    Pen.Width := 2;
    Pen.mode := pmCopy;
    Pen.Color := clGreen;
    Brush.Style := bsClear;
    with TIELayer(ImageEnView.Layers[LayerIndex]).ClientAreaBox do
      Rectangle(Left-1, Top-1, Right+1, Bottom+1);
  end;
end;

procedure TView_Bilder.ImageEnDBVect1DrawLayerBox(Sender: TObject;
  ACanvas: TCanvas; LayerIndex: Integer);
begin
  with ACanvas do
  begin
    Pen.Style := psSolid;
    Pen.Width := 2;
    Pen.mode := pmCopy;
    Pen.Color := clGreen;
    Brush.Style := bsClear;
    with TIELayer(ImageEnDBVect1.Layers[LayerIndex]).ClientAreaBox do
      Rectangle(Left-1, Top-1, Right+1, Bottom+1);
  end;
end;