В SearchBox-е вместо лупы вижу черный прямоугольник

[delphi159]

В рабочем проекте на форме Form1 есть SearchBox1. Вместо лупи в SearchBox1 вижу черный прямоугольник. Хотя в новом, пустом проекте на форме лупа хорошо выдна(!).
Где может быть причина?

object Form1: TForm1
Left = 800
Top = 321
HelpContext = 1
BorderIcons = [biSystemMenu]
Caption = #4328#4308#4312#4327#4309#4304#4316 #4308#4311' '#4317#4318#4308#4320#4304#4322#431 7#4320#4312
ClientHeight = 472
ClientWidth = 537
Color = clMoneyGreen
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Menu = MainMenu1
OldCreateOrder = False
Position = poDesktopCenter
Visible = True
StyleElements = [seFont, seClient]
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13

object SearchBox1: TSearchBox
Left = 216
Top = 263
Width = 121
Height = 21
TabOrder = 12
Text = 'SearchBox1'
end

[min@y™]

Ты забыл указать ОС и приложить скриншот безобразия.
У меня нормально:

39.png

object FormMain: TFormMain
  Left = 350
  Top = 199
  Caption = 'Test'
  ClientHeight = 174
  ClientWidth = 370
  Color = clBtnFace
  DoubleBuffered = True
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TJvStatusBar
    Left = 0
    Top = 150
    Width = 370
    Height = 24
    Panels = <
      item
        Width = 50
      end
      item
        Alignment = taCenter
        Width = 50
        Control = ButtonOpen
      end
      item
        Width = 50
      end
      item
        Width = 128
        Control = SearchBox1
      end
      item
        Width = 50
      end>
    ExplicitLeft = -8
    ExplicitTop = 180
    ExplicitWidth = 407
    object ButtonOpen: TButton
       // ...
    end
    object SearchBox1: TSearchBox
      Left = 153
      Top = 3
      Width = 121
      Height = 18
      TabOrder = 1
      Text = 'SearchBox1'
    end
  end
end

[delphi159]

Сообщение от min@y™

Ты забыл указать ОС и приложить скриншот безобразия.
У меня нормально:

Операционная система Windows 10. Delphi 10.1 Berlin.
Скриншот добавил в теме.
Проблема как-то связана к стилям. В моём проекте в комбобоксе "default style" выбран "Windows". И в новом проекте по умолчанию выбран тот-же стиль, но там лупа выдна.
Когда в моём проекте в custom styles вместо "Windows" выбрал какой-нибудь стиль тогда лупа появляется. Но мне не нравится не один из этих Embarcadero custom VCl стилей.