object LocationForm: TLocationForm
  Left = 388
  Top = 244
  BorderStyle = bsDialog
  Caption = 'Please enter geographic location'
  ClientHeight = 268
  ClientWidth = 427
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OnShow = FormShow
  PixelsPerInch = 125
  TextHeight = 16
  object Panel1: TPanel
    Left = 5
    Top = 6
    Width = 417
    Height = 200
    BevelOuter = bvLowered
    TabOrder = 0
    object LatLabel: TPanel
      Left = 8
      Top = 104
      Width = 159
      Height = 32
      Caption = 'Latitude'
      TabOrder = 0
    end
    object LongLabel: TPanel
      Left = 8
      Top = 152
      Width = 159
      Height = 32
      Caption = 'Longitude'
      TabOrder = 1
    end
    object LatDegBox: TEdit
      Left = 216
      Top = 104
      Width = 48
      Height = 24
      MaxLength = 2
      TabOrder = 2
    end
    object LatMinBox: TEdit
      Left = 288
      Top = 104
      Width = 48
      Height = 24
      MaxLength = 2
      TabOrder = 3
    end
    object LongDegBox: TEdit
      Left = 216
      Top = 152
      Width = 48
      Height = 24
      MaxLength = 3
      TabOrder = 4
      OnChange = LongDegBoxChange
    end
    object LongMinBox: TEdit
      Left = 288
      Top = 152
      Width = 48
      Height = 24
      MaxLength = 2
      TabOrder = 5
    end
    object NSBox: TComboBox
      Left = 352
      Top = 104
      Width = 52
      Height = 24
      ItemHeight = 16
      Items.Strings = (
        'N'
        'S')
      TabOrder = 6
    end
    object EWBox: TComboBox
      Left = 352
      Top = 152
      Width = 52
      Height = 24
      ItemHeight = 16
      Items.Strings = (
        'E'
        'W')
      TabOrder = 7
    end
    object Panel2: TPanel
      Left = 8
      Top = 56
      Width = 159
      Height = 32
      Caption = 'Time Zone'
      TabOrder = 8
    end
    object ZoneBox: TComboBox
      Left = 216
      Top = 61
      Width = 52
      Height = 24
      ItemHeight = 16
      Items.Strings = (
        '0'
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12')
      TabOrder = 9
    end
    object LocNameLabel: TPanel
      Left = 8
      Top = 8
      Width = 159
      Height = 32
      Caption = 'Name of location'
      TabOrder = 10
    end
    object LocNameBox: TComboBox
      Left = 217
      Top = 12
      Width = 192
      Height = 24
      ItemHeight = 16
      TabOrder = 11
      Text = 'Sheffield, UK'
    end
    object DaylightSaving: TCheckBox
      Left = 288
      Top = 65
      Width = 118
      Height = 17
      Caption = 'Daylight saving?'
      State = cbChecked
      TabOrder = 12
    end
  end
  object SetButton: TButton
    Left = 16
    Top = 224
    Width = 101
    Height = 34
    Caption = 'Set'
    TabOrder = 1
    OnClick = SetButtonClick
  end
  object CancelButton: TButton
    Left = 309
    Top = 224
    Width = 102
    Height = 34
    Caption = 'Cancel'
    TabOrder = 2
    OnClick = CancelButtonClick
  end
  object AddButton: TButton
    Left = 168
    Top = 224
    Width = 101
    Height = 34
    Caption = 'Add'
    Enabled = False
    TabOrder = 3
    OnClick = SetButtonClick
  end
end