procedure TformPreview.DoCreateRectangleShape;
begin
  ImageEnViewPreview.LayersAdd(
    iesRectangle,
    Rect(
      10,   // Left
      10,   // Top
      100,  // Right
      100), // Bottom
    clRed, 5);
  ImageEnViewPreview.CurrentLayer.Selected := True; // select this layer: does not work
end;