object Mainwindow: TMainwindow
  Left = 315
  Top = 291
  BorderStyle = bsDialog
  Caption = 'CMSystems TfW v1.00 �Copyright 1997 by Christian Moerz'
  ClientHeight = 273
  ClientWidth = 480
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PopupMenu = PopupMenu1
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 16
    Top = 16
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image000.ico>}
  end
  object Label1: TLabel
    Left = 56
    Top = 16
    Width = 84
    Height = 13
    Caption = 'TAR for Windows'
  end
  object Ver: TLabel
    Left = 56
    Top = 32
    Width = 59
    Height = 13
    Caption = 'Version 1.00'
  end
  object Label2: TLabel
    Left = 56
    Top = 56
    Width = 289
    Height = 13
    Caption = 'Choose the files to add to the archive and add them to the list'
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 80
    Width = 345
    Height = 177
    Caption = 'Archive'
    PopupMenu = PopupMenu1
    TabOrder = 1
    object NewButton: TButton
      Left = 16
      Top = 24
      Width = 89
      Height = 25
      Caption = '&Add files...'
      TabOrder = 0
      OnClick = NewButtonClick
    end
    object Files: TListBox
      Left = 16
      Top = 56
      Width = 313
      Height = 105
      ItemHeight = 13
      PopupMenu = PopupMenu1
      TabOrder = 1
      OnKeyDown = FilesKeyDown
    end
  end
  object OKButton: TButton
    Left = 376
    Top = 16
    Width = 89
    Height = 25
    Caption = '&OK'
    Default = True
    TabOrder = 0
    OnClick = OKButtonClick
  end
  object OD: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 
      'All Files|*.*|Executables|*.exe;*.com;*.bat|Text Files|*.doc;*.w' +
      'ri;*.txt;*.text|Internet Pages|*.html;*.htm|Graphics|*.jpg;*.bmp' +
      ';*.tga;*.gif;*.pcx|Databasefiles|*.xls;*.dbf'
    Options = [ofHideReadOnly, ofNoChangeDir, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofNoNetworkButton]
    Title = 'Choose files to add'
    Left = 128
    Top = 96
  end
  object SD: TSaveDialog
    DefaultExt = 'tar'
    FileEditStyle = fsEdit
    Options = [ofPathMustExist, ofNoNetworkButton]
    Title = 'Save Archive'
    Left = 152
    Top = 16
  end
  object PopupMenu1: TPopupMenu
    Left = 184
    Top = 16
    object Countarchivefiles1: TMenuItem
      Caption = '&Count archive files'
      ShortCut = 0
      OnClick = Countarchivefiles1Click
    end
    object Exitprogram1: TMenuItem
      Caption = 'E&xit program'
      ShortCut = 16472
      OnClick = Exitprogram1Click
    end
  end
end