Chip Hitware 6 A/CHIP_HITWARE6_A.iso/internet/MTUSpeedPro/mtuspeed410.exe/MTUSpeed.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1998-05-04 | 36.2 KB | 1,444 lines

object Form1: TForm1
  Left = 201
  Top = 109
  Hint = 'Right Click for Menu'
  HorzScrollBar.Visible = False
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Version No'
  ClientHeight = 309
  ClientWidth = 475
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PopupMenu = PopupMTU
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = ShowForm
  PixelsPerInch = 96
  TextHeight = 13
  object TLabel
    Left = 313
    Top = 10
    Width = 3
    Height = 13
    Alignment = taRightJustify
  end
  object Panel14: TPanel
    Left = 356
    Top = 0
    Width = 119
    Height = 284
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 1
    TabOrder = 1
    object BtnMaxMTU: TButton
      Left = 7
      Top = 130
      Width = 105
      Height = 25
      Hint = 'Change MaxMTU Value'
      Caption = 'Change &MaxMTU'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = BtnMTUClick
    end
    object BtnDefault: TButton
      Left = 7
      Top = 20
      Width = 105
      Height = 25
      Hint = 'Set Basic Values'
      Caption = '&Basic Settings'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = BtnDefaultClick
    end
    object BtnRemove: TButton
      Left = 7
      Top = 210
      Width = 105
      Height = 25
      Hint = 'Return to Default Windows95 Settings'
      Caption = 'Remove &Settings'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnClick = BtnRemoveClick
    end
    object BtnRegUpdate: TButton
      Left = 7
      Top = 257
      Width = 105
      Height = 25
      Hint = 'Write changes to the Registry'
      Cancel = True
      Caption = '&Update Registry'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = BtnRegUpdateClick
    end
    object BtnOptimal: TButton
      Left = 7
      Top = 50
      Width = 105
      Height = 25
      Hint = 'Set Optimum values which should'#13#10'work for most people'
      Caption = '&Optimum Settings'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = BtnOptimalClick
    end
    object BtnRWIN: TButton
      Left = 7
      Top = 160
      Width = 105
      Height = 25
      Hint = 'Change RWIN Value'
      Caption = 'Change &RWIN'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = BtnRWINClick
    end
    object AutoButton: TButton
      Left = 7
      Top = 90
      Width = 105
      Height = 25
      Hint = 'Set Automatic Detection'
      Caption = '&Automatic Settings'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = AutoButtonClick
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 356
    Height = 284
    ActivePage = TabSheet1
    Align = alLeft
    TabOrder = 0
    TabStop = False
    TabWidth = 70
    object TabSheet1: TTabSheet
      Caption = 'MTU'
      object Panel12: TPanel
        Left = 0
        Top = 0
        Width = 348
        Height = 256
        Hint = 'Right click for Menu.'
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvNone
        BorderWidth = 5
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
        object Label8: TLabel
          Left = 130
          Top = 92
          Width = 53
          Height = 13
          Hint = 'Recommended value is 576'
          Alignment = taRightJustify
          Caption = 'MaxMTU ='
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
        end
        object LabelMaxMTU: TLabel
          Left = 190
          Top = 92
          Width = 70
          Height = 13
          Caption = 'LabelMaxMTU'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
        end
        object LabelTrackBar: TLabel
          Left = 88
          Top = 175
          Width = 171
          Height = 13
          Alignment = taCenter
          Caption = 'Slide the Trackbar to change RWIN'
          Font.Color = clWindowText
          Font.Height = 11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
        end
        object Label1: TLabel
          Left = 89
          Top = 213
          Width = 6
          Height = 13
          Caption = '2'
        end
        object Label2: TLabel
          Left = 249
          Top = 213
          Width = 12
          Height = 13
          Alignment = taRightJustify
          Caption = '10'
        end
        object LabelKey: TLabel
          Left = 48
          Top = 28
          Width = 278
          Height = 13
          AutoSize = False
          Caption = 'Registry Settings'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
        end
        object LabelKeyNum: TLabel
          Left = 266
          Top = 10
          Width = 66
          Height = 13
          Alignment = taRightJustify
          Caption = 'LabelKeyNum'
        end
        object Label9: TLabel
          Left = 91
          Top = 233
          Width = 166
          Height = 13
          Alignment = taCenter
          Caption = 'Right click window for popup menu'
          Color = clBtnFace
          ParentColor = False
        end
        object LabelIP: TLabel
          Left = 261
          Top = 70
          Width = 36
          Height = 13
          Alignment = taRightJustify
          Caption = 'LabelIP'
        end
        object Label32: TLabel
          Left = 130
          Top = 213
          Width = 6
          Height = 13
          Caption = '4'
        end
        object Label33: TLabel
          Left = 171
          Top = 213
          Width = 6
          Height = 13
          Caption = '6'
        end
        object Label34: TLabel
          Left = 212
          Top = 213
          Width = 6
          Height = 13
          Caption = '8'
        end
        object Panel9: TPanel
          Left = 48
          Top = 113
          Width = 251
          Height = 51
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderWidth = 1
          TabOrder = 2
          object Label12: TLabel
            Left = 25
            Top = 8
            Width = 30
            Height = 13
            Alignment = taCenter
            Caption = 'RWIN'
            ParentShowHint = False
            ShowHint = False
          end
          object Label11: TLabel
            Left = 82
            Top = 8
            Width = 6
            Height = 13
            Alignment = taCenter
            Caption = '='
            ParentShowHint = False
            ShowHint = False
          end
          object Label13: TLabel
            Left = 110
            Top = 8
            Width = 41
            Height = 13
            Alignment = taCenter
            Caption = 'Multiplier'
            ParentShowHint = False
            ShowHint = False
          end
          object Label14: TLabel
            Left = 170
            Top = 8
            Width = 5
            Height = 13
            Alignment = taCenter
            Caption = 'x'
            ParentShowHint = False
            ShowHint = False
          end
          object Label10: TLabel
            Left = 200
            Top = 8
            Width = 23
            Height = 13
            Alignment = taCenter
            Caption = 'MSS'
            ParentShowHint = False
            ShowHint = False
          end
          object LabelRWIN: TLabel
            Left = 12
            Top = 28
            Width = 56
            Height = 13
            Alignment = taCenter
            AutoSize = False
            Caption = 'LabelRWIN'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = False
          end
          object Label15: TLabel
            Left = 82
            Top = 28
            Width = 6
            Height = 13
            Alignment = taCenter
            Caption = '='
            ParentShowHint = False
            ShowHint = False
          end
          object LabelMult: TLabel
            Left = 107
            Top = 28
            Width = 46
            Height = 13
            Alignment = taCenter
            AutoSize = False
            Caption = 'LabelMult'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = False
          end
          object Label16: TLabel
            Left = 170
            Top = 28
            Width = 5
            Height = 13
            Alignment = taCenter
            Caption = 'x'
            ParentShowHint = False
            ShowHint = False
          end
          object LabelMSS: TLabel
            Left = 187
            Top = 28
            Width = 49
            Height = 13
            Alignment = taCenter
            AutoSize = False
            Caption = 'LabelMSS'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = False
          end
        end
        object TrackBarMult: TTrackBar
          Left = 83
          Top = 191
          Width = 183
          Height = 22
          Hint = 'Recommended value is 4'
          Min = 2
          Orientation = trHorizontal
          ParentShowHint = False
          PageSize = 1
          Frequency = 1
          Position = 4
          SelEnd = 0
          SelStart = 0
          ShowHint = True
          TabOrder = 1
          TickMarks = tmBottomRight
          TickStyle = tsAuto
          OnChange = TrackBarChange
        end
        object ComboBox1: TComboBox
          Left = 48
          Top = 45
          Width = 251
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          ParentShowHint = False
          ShowHint = False
          TabOrder = 0
          OnChange = ComboBox1Change
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Registry'
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 348
        Height = 256
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvNone
        BorderWidth = 5
        Caption = 'Panel1'
        TabOrder = 0
        object Label7: TLabel
          Left = 22
          Top = 137
          Width = 112
          Height = 13
          Alignment = taRightJustify
          Caption = 'PMTUBlackHoleDetect'
          Font.Color = clWindowText
          Font.Height = 11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
        end
        object Label6: TLabel
          Left = 34
          Top = 107
          Width = 100
          Height = 13
          Alignment = taRightJustify
          Caption = 'PMTUAutoDiscovery'
          Font.Color = clWindowText
          Font.Height = 11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
        end
        object Label5: TLabel
          Left = 104
          Top = 78
          Width = 30
          Height = 13
          Alignment = taRightJustify
          Caption = 'RWIN'
          Font.Color = clWindowText
          Font.Height = 11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
        end
        object Label4: TLabel
          Left = 90
          Top = 50
          Width = 44
          Height = 13
          Alignment = taRightJustify
          Caption = 'MaxMTU'
          Font.Color = clWindowText
          Font.Height = 11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
        end
        object Label23: TLabel
          Left = 33
          Top = 167
          Width = 101
          Height = 13
          Alignment = taRightJustify
          Caption = 'Time To Live Active?'
          Font.Color = clWindowText
          Font.Height = 11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
        end
        object Label21: TLabel
          Left = 38
          Top = 197
          Width = 96
          Height = 13
          Alignment = taRightJustify
          Caption = 'Time To Live - Hops'
          ParentShowHint = False
          ShowHint = False
        end
        object Label3: TLabel
          Left = 58
          Top = 227
          Width = 76
          Height = 13
          Alignment = taRightJustify
          Caption = 'NDI Cache Size'
          ParentShowHint = False
          ShowHint = False
        end
        object Panel2: TPanel
          Left = 140
          Top = 8
          Width = 200
          Height = 30
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderWidth = 1
          ParentShowHint = False
          PopupMenu = PopupMTU
          ShowHint = False
          TabOrder = 0
          object Label17: TLabel
            Left = 14
            Top = 9
            Width = 33
            Height = 13
            Caption = 'Enable'
            Font.Color = clWindowText
            Font.Height = 11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = False
          end
          object Label19: TLabel
            Left = 82
            Top = 9
            Width = 35
            Height = 13
            Alignment = taCenter
            Caption = 'Disable'
            Font.Color = clWindowText
            Font.Height = 11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = False
          end
          object Label20: TLabel
            Left = 142
            Top = 9
            Width = 40
            Height = 13
            Alignment = taRightJustify
            Caption = 'Remove'
            Font.Color = clWindowText
            Font.Height = 11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = False
          end
        end
        object PanelMTU: TPanel
          Left = 140
          Top = 38
          Width = 200
          Height = 30
          Hint = 'MaxMTU Enable or Remove'
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderWidth = 1
          ParentShowHint = False
          PopupMenu = PopupMTU
          ShowHint = True
          TabOrder = 1
          object RadioYesMTU: TRadioButton
            Left = 23
            Top = 7
            Width = 17
            Height = 17
            ParentShowHint = False
            ShowHint = False
            TabOrder = 0
            OnClick = RadioClick
          end
          object RadioRemoveMTU: TRadioButton
            Left = 155
            Top = 7
            Width = 17
            Height = 17
            Checked = True
            ParentShowHint = False
            ShowHint = False
            TabOrder = 1
            TabStop = True
            OnClick = RadioClick
          end
        end
        object PanelRWIN: TPanel
          Left = 140
          Top = 68
          Width = 200
          Height = 30
          Hint = 'RWIN enable or remove'
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderWidth = 1
          ParentShowHint = False
          PopupMenu = PopupMTU
          ShowHint = True
          TabOrder = 2
          object RadioYesRWIN: TRadioButton
            Left = 23
            Top = 7
            Width = 17
            Height = 17
            ParentShowHint = False
            ShowHint = False
            TabOrder = 0
            OnClick = RadioClick
          end
          object RadioRemoveRWIN: TRadioButton
            Left = 155
            Top = 7
            Width = 17
            Height = 17
            Checked = True
            ParentShowHint = False
            ShowHint = False
            TabOrder = 1
            TabStop = True
            OnClick = RadioClick
          end
        end
        object PanelAuto: TPanel
          Left = 140
          Top = 98
          Width = 200
          Height = 30
          Hint = 'Recommended setting is disabled'
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderWidth = 1
          ParentShowHint = False
          PopupMenu = PopupMTU
          ShowHint = True
          TabOrder = 3
          object RadioYesAUTO: TRadioButton
            Left = 23
            Top = 7
            Width = 17
            Height = 17
            ParentShowHint = False
            ShowHint = False
            TabOrder = 0
            OnClick = AutoClick
          end
          object RadioNoAUTO: TRadioButton
            Left = 93
            Top = 7
            Width = 17
            Height = 17
            ParentShowHint = False
            ShowHint = False
            TabOrder = 1
            OnClick = RadioClick
          end
          object RadioRemoveAUTO: TRadioButton
            Left = 155
            Top = 7
            Width = 17
            Height = 17
            Checked = True
            ParentShowHint = False
            ShowHint = False
            TabOrder = 2
            TabStop = True
            OnClick = RadioClick
          end
        end
        object PanelBH: TPanel
          Left = 140
          Top = 128
          Width = 200
          Height = 30
          Hint = 'Recommended setting is disabled'
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderWidth = 1
          ParentShowHint = False
          PopupMenu = PopupMTU
          ShowHint = True
          TabOrder = 4
          object RadioYesBH: TRadioButton
            Left = 23
            Top = 7
            Width = 17
            Height = 17
            ParentShowHint = False
            ShowHint = False
            TabOrder = 0
            OnClick = AutoClick
          end
          object RadioNoBH: TRadioButton
            Left = 93
            Top = 6
            Width = 17
            Height = 17
            ParentShowHint = False
            ShowHint = False
            TabOrder = 1
            OnClick = RadioClick
          end
          object RadioRemoveBH: TRadioButton
            Left = 155
            Top = 7
            Width = 17
            Height = 17
            Checked = True
            ParentShowHint = False
            ShowHint = False
            TabOrder = 2
            TabStop = True
            OnClick = RadioClick
          end
        end
        object PanelTTLactive: TPanel
          Left = 140
          Top = 158
          Width = 200
          Height = 30
          Hint = 'Recommended setting is enabled'
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderWidth = 1
          ParentShowHint = False
          PopupMenu = PopupMTU
          ShowHint = True
          TabOrder = 5
          object RadioYesTTL: TRadioButton
            Left = 23
            Top = 5
            Width = 17
            Height = 17
            TabOrder = 0
            OnClick = RadioTTLClick
          end
          object RadioRemoveTTL: TRadioButton
            Left = 155
            Top = 5
            Width = 17
            Height = 17
            Checked = True
            ParentShowHint = False
            ShowHint = False
            TabOrder = 1
            TabStop = True
            OnClick = RadioTTLClick
          end
        end
        object PanelTTLvalue: TPanel
          Left = 140
          Top = 188
          Width = 200
          Height = 30
          Hint =
            'Default is 32 (Win95) or 128 (WinNT).'#13#10'Set 255 if you are gettin' +
            'g a lot of timeouts'
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderWidth = 1
          ParentShowHint = False
          PopupMenu = PopupMTU
          ShowHint = True
          TabOrder = 6
          object Radio32TTL: TRadioButton
            Left = 23
            Top = 6
            Width = 42
            Height = 17
            Caption = '32'
            Enabled = False
            TabOrder = 0
            OnClick = RadioTTLClick
          end
          object Radio64TTL: TRadioButton
            Left = 67
            Top = 6
            Width = 35
            Height = 17
            Caption = '64'
            Enabled = False
            TabOrder = 1
            OnClick = RadioTTLClick
          end
          object Radio128TTL: TRadioButton
            Left = 111
            Top = 6
            Width = 40
            Height = 17
            Caption = '128'
            Enabled = False
            TabOrder = 2
            OnClick = RadioTTLClick
          end
          object Radio255TTL: TRadioButton
            Left = 155
            Top = 6
            Width = 40
            Height = 17
            Caption = '255'
            TabOrder = 3
            OnClick = RadioTTLClick
          end
        end
        object PanelNDI: TPanel
          Left = 140
          Top = 218
          Width = 200
          Height = 30
          Hint = 'Recommended NDI Cache is 16'
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderWidth = 1
          ParentShowHint = False
          PopupMenu = PopupMTU
          ShowHint = True
          TabOrder = 7
          object RadioZeroNDI: TRadioButton
            Left = 23
            Top = 6
            Width = 33
            Height = 17
            Caption = '0'
            TabOrder = 0
            OnClick = RadioNDIClick
          end
          object Radio16NDI: TRadioButton
            Left = 67
            Top = 6
            Width = 33
            Height = 17
            Caption = '16'
            TabOrder = 1
            OnClick = RadioNDIClick
          end
          object Radio32NDI: TRadioButton
            Left = 111
            Top = 6
            Width = 33
            Height = 17
            Caption = '32'
            TabOrder = 2
            OnClick = RadioNDIClick
          end
          object Radio64NDI: TRadioButton
            Left = 155
            Top = 6
            Width = 33
            Height = 17
            Caption = '64'
            TabOrder = 3
            OnClick = RadioNDIClick
          end
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Utilities'
      OnEnter = TabSheet3Enter
      object Panel15: TPanel
        Left = 0
        Top = 0
        Width = 348
        Height = 256
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvNone
        BorderWidth = 5
        TabOrder = 0
        object Label18: TLabel
          Left = 84
          Top = 145
          Width = 88
          Height = 13
          Alignment = taRightJustify
          Caption = 'MTU value to test:'
        end
        object Label22: TLabel
          Left = 44
          Top = 174
          Width = 128
          Height = 13
          Alignment = taRightJustify
          Caption = 'Name or IP of Host to ping:'
        end
        object Label27: TLabel
          Left = 53
          Top = 115
          Width = 119
          Height = 13
          Alignment = taRightJustify
          Caption = 'MTU set on MTU page ='
        end
        object Label28: TLabel
          Left = 175
          Top = 115
          Width = 71
          Height = 13
          Caption = 'Label28'
        end
        object Label29: TLabel
          Left = 38
          Top = 86
          Width = 274
          Height = 13
          Alignment = taCenter
          Caption = 'You must have ping installed on your computer to use this.'
          Color = clBtnFace
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentColor = False
          ParentFont = False
        end
        object Label30: TLabel
          Left = 14
          Top = 15
          Width = 300
          Height = 55
          Caption =
            'Use this to discover the MaxMTU on the route to your favourite s' +
            'ites. The methodology is explained in the readme and the help fi' +
            'les. You can get a deeper understanding at Malcolm Reeves web si' +
            'te (URL in readme file)'
          WordWrap = True
        end
        object Label31: TLabel
          Left = 74
          Top = 232
          Width = 235
          Height = 13
          Alignment = taRightJustify
          Caption = 'Check this box if the ping window closes too soon'
          OnClick = Label31Click
        end
        object TestMTUbox: TEdit
          Left = 175
          Top = 141
          Width = 71
          Height = 21
          Hint = 'Must be 68 or more'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
        object TestMTUbtn: TButton
          Left = 119
          Top = 202
          Width = 111
          Height = 25
          Caption = 'Test MTU Value'
          Default = True
          TabOrder = 2
          OnClick = TestMTUbtnClick
        end
        object TestIP1: TEdit
          Left = 175
          Top = 170
          Width = 131
          Height = 21
          ParentShowHint = False
          ShowHint = False
          TabOrder = 1
        end
        object WindowCheck: TCheckBox
          Left = 315
          Top = 230
          Width = 16
          Height = 17
          Alignment = taLeftJustify
          TabOrder = 3
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Modem'
      PopupMenu = PopupModem
      OnEnter = TabSheet4Enter
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 348
        Height = 256
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvNone
        BorderWidth = 5
        TabOrder = 0
        object Label24: TLabel
          Left = 39
          Top = 30
          Width = 72
          Height = 13
          Caption = 'Current Modem'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label25: TLabel
          Left = 39
          Top = 80
          Width = 146
          Height = 13
          Caption = 'Current Init String'
        end
        object Label26: TLabel
          Left = 164
          Top = 120
          Width = 75
          Height = 13
          Caption = 'Registry Key:'
        end
        object ModemKeyNumLabel: TLabel
          Left = 250
          Top = 120
          Width = 60
          Height = 13
        end
        object TotalLabel: TLabel
          Left = 261
          Top = 15
          Width = 50
          Height = 13
          Alignment = taRightJustify
          Caption = 'TotalLabel'
        end
        object ComboBox2: TComboBox
          Left = 39
          Top = 45
          Width = 272
          Height = 21
          Style = csDropDownList
          ItemHeight = 0
          TabOrder = 0
          OnChange = ComboBox2Change
        end
        object ModemString1: TEdit
          Left = 39
          Top = 95
          Width = 271
          Height = 21
          TabOrder = 1
          OnChange = ModemString1Change
        end
        object BtnModemUpdate: TButton
          Left = 74
          Top = 200
          Width = 200
          Height = 25
          Hint = 'Write all init strings to Registry'
          Caption = 'Write the Init String to the Registry'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          OnClick = BtnModemUpdateClick
        end
        object GetModemData: TButton
          Left = 74
          Top = 155
          Width = 200
          Height = 25
          Caption = 'Re-Read Modem Data from Registry'
          TabOrder = 2
          OnClick = GetModemDataClick
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'About'
      object Panel10: TPanel
        Left = 0
        Top = 0
        Width = 348
        Height = 256
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvNone
        BorderWidth = 5
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
        object VersionLabel: TLabel
          Left = 8
          Top = 24
          Width = 332
          Height = 20
          Alignment = taCenter
          AutoSize = False
          Caption = 'Version No'
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          IsControl = True
        end
        object Comments: TLabel
          Left = 82
          Top = 150
          Width = 185
          Height = 26
          Alignment = taCenter
          Caption =
            'Click the icons above to send e-mail to me or to reach my websit' +
            'e'
          WordWrap = True
          IsControl = True
        end
        object PlatformLabel: TLabel
          Left = 8
          Top = 52
          Width = 332
          Height = 16
          Alignment = taCenter
          AutoSize = False
          Caption = 'PlatformLabel'
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object OptionLabel: TLabel
          Left = 8
          Top = 80
          Width = 332
          Height = 16
          Alignment = taCenter
          AutoSize = False
          Caption = 'OptionLabel'
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object MailPicture: TImage
          Left = 82
          Top = 110
          Width = 32
          Height = 32
          Hint = 'Click to send e-mail'
          AutoSize = True
          Center = True
          ParentShowHint = False
          Picture.Data = {<image000.ico>}
          ShowHint = True
          OnClick = MailPictureClick
        end
        object WebPicture: TImage
          Left = 235
          Top = 110
          Width = 32
          Height = 32
          Hint = 'Click to check for latest version'
          AutoSize = True
          Center = True
          ParentShowHint = False
          Picture.Data = {<image001.ico>}
          ShowHint = True
          OnClick = WebPictureClick
        end
        object Copyright: TLabel
          Left = 8
          Top = 225
          Width = 332
          Height = 13
          Alignment = taCenter
          Caption = 'Copyright Mike Sutherland 1997'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          IsControl = True
        end
        object RegBtn: TButton
          Left = 136
          Top = 190
          Width = 75
          Height = 25
          Caption = 'Reward me!'
          TabOrder = 0
          OnClick = RegBtnClick
        end
      end
    end
  end
  object Panel6: TPanel
    Left = 0
    Top = 284
    Width = 475
    Height = 25
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object MTUCheckBox: TCheckBox
      Left = 10
      Top = 4
      Width = 171
      Height = 17
      Hint = 'If checked, forces MaxMTU'#13#10'to be the same for all keys.'
      Alignment = taLeftJustify
      Caption = 'Apply same values to all &keys?'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = MTUCheckBoxClick
    end
    object RWINCheckBox: TCheckBox
      Left = 220
      Top = 4
      Width = 246
      Height = 17
      Hint =
        'Determines whether Optimal and Basic'#13#10'buttons enable or disable ' +
        'RWIN'
      Alignment = taLeftJustify
      Caption = 'RWIN &enabled by Basic and Optimum buttons?'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
  end
  object PopupMTU: TPopupMenu
    OnPopup = PopupMTUPopup
    Top = 164
    object PopupRegUpdate: TMenuItem
      Caption = 'Update Registry'
      Enabled = False
      ShortCut = 0
      OnClick = BtnRegUpdateClick
    end
    object N4: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object PopupReReadReg: TMenuItem
      Caption = 'Re-Read Registry'
      ShortCut = 0
      OnClick = PopupReReadRegClick
    end
    object N3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object PopupSetBasic: TMenuItem
      Caption = 'Basic Settings'
      ShortCut = 0
      OnClick = BtnDefaultClick
    end
    object PopupSetOptimum: TMenuItem
      Caption = 'Optimum Settings'
      ShortCut = 0
      OnClick = BtnOptimalClick
    end
    object PopupSetAuto: TMenuItem
      Caption = 'Automatic Settings'
      ShortCut = 0
      OnClick = AutoButtonClick
    end
    object PopupRemoveSettings: TMenuItem
      Caption = 'Remove Settings'
      ShortCut = 0
      OnClick = BtnRemoveClick
    end
    object N5: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object PopupChangeMaxMTU: TMenuItem
      Caption = 'Change MaxMTU'
      ShortCut = 0
      OnClick = BtnMTUClick
    end
    object PopupChangeRWIN: TMenuItem
      Caption = 'Change RWIN'
      ShortCut = 0
      OnClick = BtnRWINClick
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object PopupWin95ReadMe: TMenuItem
      Caption = 'Win95 Readme...'
      Enabled = False
      ShortCut = 0
      OnClick = ViewReadmeClick
    end
    object PopupWinNTReadMe: TMenuItem
      Caption = 'Win NT Readme...'
      Enabled = False
      ShortCut = 0
      OnClick = ViewReadmeClick
    end
    object N6: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Help1: TMenuItem
      Caption = 'Help (HTML)'
      ShortCut = 0
      OnClick = Help1Click
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object PopupExit: TMenuItem
      Caption = 'Exit'
      ShortCut = 0
      OnClick = MenuExitOption
    end
  end
  object MailURL: TURL
    URLType = utMailto
    Top = 195
  end
  object WebURL: TURL
    Top = 225
  end
  object HelpURL: TURL
    URLType = utFile
    Top = 254
  end
  object PopupModem: TPopupMenu
    Left = 65535
    Top = 134
    object ReReadModemData1: TMenuItem
      Caption = 'Re-Read Modem Data'
      ShortCut = 0
      OnClick = GetModemDataClick
    end
    object WriteInitString1: TMenuItem
      Caption = 'Write Init String to Registry'
      ShortCut = 0
      OnClick = BtnModemUpdateClick
    end
    object N9: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object MenuSelect: TMenuItem
      Caption = 'Select All'
      ShortCut = 0
      OnClick = MenuSelectClick
    end
    object Clear1: TMenuItem
      Caption = 'Clear'
      ShortCut = 0
      OnClick = MenuClearClick
    end
    object MenuCut: TMenuItem
      Caption = 'Cut'
      ShortCut = 0
      OnClick = MenuCutClick
    end
    object MenuCopy: TMenuItem
      Caption = 'Copy'
      ShortCut = 0
      OnClick = MenuCopyClick
    end
    object MenuPaste: TMenuItem
      Caption = 'Paste'
      ShortCut = 0
      OnClick = MenuPasteClick
    end
    object N8: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object ViewReadMe1: TMenuItem
      Caption = 'View ReadMe'
      ShortCut = 0
      OnClick = ViewReadMe1Click
    end
    object HelpHTML1: TMenuItem
      Caption = 'Help (HTML)'
      ShortCut = 0
      OnClick = Help1Click
    end
    object N7: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Exit1: TMenuItem
      Caption = 'Exit'
      ShortCut = 0
      OnClick = MenuExitOption
    end
  end
end