procedure TformMain.ImageEnMViewMultiImagesFilter(Sender: TObject; Index:
    Integer; const Filename: string; var ShowFrame: Boolean);
begin
  if cxButtonEditMultiImagesFilter.Text <> '' then
  begin
    ShowFrame :=
      ContainsText(ImageEnMViewMultiImages.ImageTopText[Index], cxButtonEditMultiImagesFilter.Text) or
      ContainsText(ImageEnMViewMultiImages.ImageInfoText[Index], cxButtonEditMultiImagesFilter.Text) or
      ContainsText(ImageEnMViewMultiImages.ImageBottomText[Index], cxButtonEditMultiImagesFilter.Text) or
      ContainsText(Filename, cxButtonEditMultiImagesFilter.Text);
  end;
end;