object FormCheckApply: TFormCheckApply
  Left = 275
  Top = 194
  BorderStyle = bsDialog
  Caption = 'Na��st kontroln� soubor'
  ClientHeight = 162
  ClientWidth = 313
  Color = clBtnFace
  ParentFont = True
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 297
    Height = 117
    Shape = bsFrame
  end
  object LabelPlus1: TLabelPlus
    Left = 24
    Top = 20
    Width = 76
    Height = 13
    Caption = '&Zdrojov� soubor'
    FocusControl = EditFile
    Attached = True
  end
  object StaticInfo: TStatic
    Left = 24
    Top = 88
    Width = 149
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label1: TLabel
    Left = 24
    Top = 72
    Width = 34
    Height = 13
    Caption = 'Pr�b�h'
    Transparent = True
  end
  object BtnClose: TButton
    Left = 231
    Top = 132
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Zav��t'
    Default = True
    ModalResult = 1
    TabOrder = 2
  end
  object EditFile: TFilenameEdit
    Left = 24
    Top = 36
    Width = 265
    Height = 21
    Separator = #0
    DefaultExt = 'sup'
    Filter = 'Kontroln� soubory (*.SUP)|*.sup|V�echny soubory (*.*)|*.*'
    DialogOptions = [ofHideReadOnly, ofEnableSizing]
    ButtonHint = 'Proch�zet'
    ClickKey = 120
    NumGlyphs = 1
    TabOrder = 0
    OnChange = EditFileChange
  end
  object BtnStart: TBitBtn
    Left = 216
    Top = 84
    Width = 75
    Height = 25
    Caption = '&Start'
    Enabled = False
    TabOrder = 1
    OnClick = BtnStartClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      77777707777770000777777077770EEEE077777007777FEE677777770077F000
      067777770B070EEEE077777770B077777777777770FB077777777777770BB077
      77777777770FBB0777777777000FBBB0777777770FBBB0000777777770FBBB07
      7777777770FBBBB077777777770FBBBB07777777770FFFFFFF77}
  end
  object QryUpd: TQuery
    DatabaseName = 'BRAIN_'
    SQL.Strings = (
      'UPDATE f_promo'
      'SET check2=:datum, result=:result'
      'WHERE cislo=:cislo')
    Left = 8
    Top = 128
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'datum'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'result'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'cislo'
        ParamType = ptUnknown
      end>
  end
  object Wallpaper1: TWallpaper
    ResourceName = 'WALLPAPER'
    Left = 36
    Top = 128
  end
end