object FormCheckCreate: TFormCheckCreate
  Left = 275
  Top = 194
  BorderStyle = bsDialog
  Caption = 'Vytvo�it kontroln� soubor'
  ClientHeight = 159
  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 = 113
    Shape = bsFrame
  end
  object LabelPlus1: TLabelPlus
    Left = 24
    Top = 20
    Width = 64
    Height = 13
    Caption = '&C�lov� 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 = 128
    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 MemoHdr: TMemo
    Left = 96
    Top = 128
    Width = 49
    Height = 25
    TabStop = False
    Enabled = False
    Lines.Strings = (
      '%  ------------------------------------------------------'
      '% |        Supreme Technologies spol. s r.o.             |'
      '% |        Cejl 20, Brno, 60200                          |'
      '% |                                                      |'
      '% |                                                      |'
      '% | Soubor pro p�ed�v�n� informac� o p�edplatitelech     |'
      '% | �asopisu PC WORLD firm� Supreme Technologies.        |'
      '% | Neprov�d�jte v tomto souboru ��dn� ru�n� �pravy.     |'
      '% | Po proveden� kontroly programem VISOR za�lete,       |'
      '% | pros�m, tento soubor na adresu supreme@supreme.cz    |'
      '% | jako p�edm�t zpr�vy uve�te PCWORLD-CHECK             |'
      '%  ------------------------------------------------------'
      '%')
    TabOrder = 3
    WordWrap = False
  end
  object QrySel: TQuery
    DatabaseName = 'BRAIN_'
    SQL.Strings = (
      'SELECT cislo'
      'FROM f_promo'
      
        'WHERE (typ='#39'PC WORLD 99'#39') and (cislo is not null) and (check1 is' +
        ' null)')
    Left = 8
    Top = 124
  end
  object QryUpd: TQuery
    DatabaseName = 'BRAIN_'
    SQL.Strings = (
      'UPDATE f_promo'
      'SET check1=:datum'
      
        'WHERE (typ='#39'PC WORLD 99'#39') and (cislo is not null) and (check1 is' +
        ' null)')
    Left = 36
    Top = 124
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'datum'
        ParamType = ptUnknown
      end>
  end
  object Wallpaper1: TWallpaper
    ResourceName = 'WALLPAPER'
    Left = 64
    Top = 124
  end
end