procedure TformPreview.mInsertNumberClick(Sender: TObject);
begin
  // Append a Number text layer:
  ImageEnViewPreview.LayersAdd(ielkText);
  with TIETextLayer(ImageEnViewPreview.CurrentLayer) do
  begin
    Text := '1';
    BorderWidth := 0;
    FillColor := clRed;
    Font.Size := 16;
    Font.Color := clWhite;
    Alignment := iejCenter;
    Layout := ielCenter;
    BorderShape := iesEllipse;
    SoftShadow.Enabled := True;
    Width  := 50;
    Height := 50;
    AspectRatioLocked := True;
  end;
end;