@@ -425,6 +425,8 @@ object frmFindDlg: TfrmFindDlg
             Width = 24
             Anchors = [akTop, akLeft, akBottom]
             BorderSpacing.Left = 2
+            Images = dmComData.ilEditorImages
+            ImageIndex = 44
             TabOrder = 8
             TabStop = True
             OnClick = btnEncodingClick
 
@@ -399,9 +399,9 @@ implementation
 {$R *.lfm}
 
 uses
-  LCLProc, LCLType, LConvEncoding, StrUtils, HelpIntfs, fViewer, fMain,
+  LCLProc, LCLType, LConvEncoding, StrUtils, HelpIntfs, ImgList, fViewer, fMain,
   uLng, uGlobs, uShowForm, uDCUtils, uOfficeXML,
-   uFile, uFileProperty, uColumnsFileView,
+  uFile, uFileProperty, uColumnsFileView,
   uFileViewNotebook, uKeyboard, uOSUtils,
   DCOSUtils, uRegExprA, uRegExprW, uDebug, uShowMsg, uConvEncoding,
   uColumns, uFileFunctions, uFileSorting,
@@ -768,8 +768,6 @@ procedure TfrmFindDlg.cmbEncodingSelect(Sender: TObject);
 
 { TfrmFindDlg.Create }
 constructor TfrmFindDlg.Create(TheOwner: TComponent);
-var
-  C: TPortableNetworkGraphic;
 begin
   FSelectedFiles := TStringList.Create;
   inherited Create(TheOwner);
@@ -778,15 +776,8 @@ constructor TfrmFindDlg.Create(TheOwner: TComponent);
   FUpdateTimer.Enabled := False;
   FUpdateTimer.OnTimer := @OnUpdateTimer;
 
-  try
-    C := TPortableNetworkGraphic.Create;
-    C.LoadFromResourceName(hInstance, ResBtnSelDir);
-    btnChooseFolder.Glyph.Assign(C);
-  finally
-    C.Free;
-  end;
-
-  dmComData.ilEditorImages.GetBitmap(44, btnEncoding.Glyph);
+  btnChooseFolder.Images:= LCLGlyphs;
+  btnChooseFolder.ImageIndex:= LCLGlyphs.GetImageIndex(ResBtnSelDir);
 
   FCommands := TFormCommands.Create(Self, actList);
 end;