lazarus-ccr/components/tvplanit/source/vpcontacteditdlg.lfm

object ContactEditForm: TContactEditForm
  Left = 679
  Height = 629
  Top = 224
  Width = 575
  HorzScrollBar.Page = 432
  VertScrollBar.Page = 320
  ActiveControl = PageControl
  Caption = 'ContactEdit'
  ClientHeight = 629
  ClientWidth = 575
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.7'
  object PageControl: TPageControl
    Left = 0
    Height = 592
    Top = 0
    Width = 575
    ActivePage = tabContact
    Align = alClient
    TabIndex = 2
    TabOrder = 0
    OnChange = PageControlChange
    object tabBaseData: TTabSheet
      Caption = 'tabBaseData'
      ClientHeight = 564
      ClientWidth = 567
      ImageIndex = 0
      object lblLastName: TLabel
        Left = 9
        Height = 15
        Top = 6
        Width = 54
        Alignment = taRightJustify
        BorderSpacing.Left = 8
        Caption = 'Last name'
        FocusControl = edLastName
        ParentColor = False
      end
      object edLastName: TEdit
        Left = 136
        Height = 23
        Top = 6
        Width = 232
        BorderSpacing.Right = 8
        MaxLength = 100
        OnChange = ItemChanged
        TabOrder = 0
      end
      object lblFirstName: TLabel
        Left = 8
        Height = 15
        Top = 31
        Width = 55
        Alignment = taRightJustify
        BorderSpacing.Left = 8
        Caption = 'First name'
        FocusControl = edFirstName
        ParentColor = False
      end
      object edFirstName: TEdit
        Left = 136
        Height = 23
        Top = 29
        Width = 232
        BorderSpacing.Right = 8
        MaxLength = 100
        OnChange = ItemChanged
        TabOrder = 1
      end
      object lblTitle: TLabel
        Left = 8
        Height = 15
        Top = 58
        Width = 23
        Alignment = taRightJustify
        BorderSpacing.Left = 8
        Caption = 'Title'
        FocusControl = edTitle
        ParentColor = False
      end
      object edTitle: TEdit
        Left = 136
        Height = 23
        Top = 56
        Width = 153
        MaxLength = 50
        OnChange = ItemChanged
        TabOrder = 2
      end
      object lblCategory: TLabel
        Left = 8
        Height = 15
        Top = 90
        Width = 48
        Alignment = taRightJustify
        BorderSpacing.Left = 8
        Caption = 'Category'
        FocusControl = cbCategory
        ParentColor = False
      end
      object cbCategory: TComboBox
        Left = 136
        Height = 23
        Top = 88
        Width = 153
        ItemHeight = 15
        MaxLength = 65535
        TabOrder = 3
      end
      object lblBirthdate: TLabel
        Left = 16
        Height = 15
        Top = 124
        Width = 51
        Alignment = taRightJustify
        BorderSpacing.Left = 8
        Caption = 'Birth date'
        FocusControl = edBirthdate
        ParentColor = False
      end
      object edBirthdate: TDateEdit
        Left = 136
        Height = 23
        Top = 120
        Width = 153
        CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
        DateOrder = doNone
        ButtonWidth = 23
        BorderSpacing.Bottom = 8
        NumGlyphs = 1
        MaxLength = 0
        ParentFont = False
        TabOrder = 4
        Text = 'edBirthdate'
      end
    end
    object tabAddresses: TTabSheet
      Caption = 'tabAddresses'
      ClientHeight = 564
      ClientWidth = 567
      ImageIndex = 1
      object gbWorkAddress: TGroupBox
        Left = 8
        Height = 311
        Top = 8
        Width = 551
        Align = alTop
        AutoSize = True
        BorderSpacing.Left = 8
        BorderSpacing.Top = 8
        BorderSpacing.Right = 8
        BorderSpacing.Bottom = 8
        Caption = 'gbWorkAddress'
        ClientHeight = 291
        ClientWidth = 547
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object edCompany: TEdit
          AnchorSideTop.Control = gbWorkAddress
          AnchorSideRight.Control = gbWorkAddress
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 0
          Width = 338
          Anchors = [akTop, akRight]
          AutoSize = False
          BorderSpacing.Right = 8
          MaxLength = 50
          OnChange = ItemChanged
          ParentFont = False
          TabOrder = 0
        end
        object lblCompany: TLabel
          AnchorSideTop.Control = edCompany
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edCompany
          Left = 128
          Height = 15
          Top = 4
          Width = 65
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          Caption = 'lblCompany'
          FocusControl = edCompany
          ParentColor = False
          ParentFont = False
        end
        object lblDepartment: TLabel
          AnchorSideTop.Control = edDepartment
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edCompany
          Left = 117
          Height = 15
          Top = 31
          Width = 76
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          Caption = 'lblDepartment'
          FocusControl = edDepartment
          ParentColor = False
          ParentFont = False
        end
        object edDepartment: TEdit
          AnchorSideLeft.Control = edCompany
          AnchorSideTop.Control = edCompany
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = edCompany
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 27
          Width = 338
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 4
          MaxLength = 50
          OnChange = ItemChanged
          ParentFont = False
          TabOrder = 1
        end
        object lblPosition: TLabel
          AnchorSideTop.Control = edPosition
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edCompany
          Left = 137
          Height = 15
          Top = 58
          Width = 56
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          Caption = 'lblPosition'
          FocusControl = edPosition
          ParentColor = False
          ParentFont = False
        end
        object edPosition: TEdit
          AnchorSideLeft.Control = edDepartment
          AnchorSideTop.Control = edDepartment
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = edDepartment
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 54
          Width = 338
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 4
          BorderSpacing.Bottom = 17
          MaxLength = 50
          OnChange = ItemChanged
          ParentFont = False
          TabOrder = 2
        end
        object lblAddressW: TLabel
          AnchorSideTop.Control = edAddressW
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edCompany
          Left = 138
          Height = 15
          Top = 98
          Width = 55
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          Caption = 'lblAddress'
          FocusControl = edAddressW
          ParentColor = False
          ParentFont = False
        end
        object edAddressW: TEdit
          AnchorSideLeft.Control = edPosition
          AnchorSideTop.Control = edPosition
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = edPosition
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 94
          Width = 338
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 4
          MaxLength = 100
          OnChange = ItemChanged
          ParentFont = False
          TabOrder = 3
        end
        object lblCityW: TLabel
          AnchorSideTop.Control = edCityW
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edCompany
          Left = 159
          Height = 15
          Top = 125
          Width = 34
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          Caption = 'lblCity'
          FocusControl = edCityW
          ParentColor = False
          ParentFont = False
        end
        object edCityW: TEdit
          AnchorSideLeft.Control = edAddressW
          AnchorSideTop.Control = edAddressW
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = edAddressW
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 121
          Width = 338
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 4
          MaxLength = 50
          OnChange = ItemChanged
          ParentFont = False
          TabOrder = 4
        end
        object lblStateW: TLabel
          AnchorSideTop.Control = edStateW
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edCompany
          Left = 154
          Height = 15
          Top = 152
          Width = 39
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          Caption = 'lblState'
          FocusControl = edStateW
          ParentColor = False
          ParentFont = False
        end
        object edStateW: TEdit
          AnchorSideLeft.Control = edCityW
          AnchorSideTop.Control = edCityW
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = edCityW
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 148
          Width = 338
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 4
          MaxLength = 25
          OnChange = ItemChanged
          ParentFont = False
          TabOrder = 5
        end
        object lblStateComboW: TLabel
          AnchorSideTop.Control = cbStateW
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edCompany
          Left = 118
          Height = 15
          Top = 179
          Width = 79
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 4
          Caption = 'lblStateCombo'
          FocusControl = cbStateW
          ParentColor = False
          ParentFont = False
          Visible = False
        end
        object cbStateW: TComboBox
          AnchorSideLeft.Control = edStateW
          AnchorSideTop.Control = edStateW
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = edStateW
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 175
          Width = 338
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 4
          ItemHeight = 15
          MaxLength = 65535
          ParentFont = False
          TabOrder = 6
          Visible = False
        end
        object lblZipCodeW: TLabel
          AnchorSideTop.Control = edZipCodeW
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edCompany
          Left = 135
          Height = 15
          Top = 206
          Width = 58
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          Caption = 'lblZipCode'
          FocusControl = edZipCodeW
          ParentColor = False
          ParentFont = False
        end
        object edZipCodeW: TEdit
          AnchorSideLeft.Control = cbStateW
          AnchorSideTop.Control = cbStateW
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 202
          Width = 120
          BorderSpacing.Top = 4
          BorderSpacing.Right = 8
          MaxLength = 10
          OnChange = ItemChanged
          ParentFont = False
          TabOrder = 7
        end
        object lblCountryComboW: TLabel
          AnchorSideTop.Control = cbCountryW
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edCompany
          Left = 97
          Height = 15
          Top = 233
          Width = 96
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          Caption = 'lblCountryCombo'
          FocusControl = cbCountryW
          ParentColor = False
          ParentFont = False
          Visible = False
        end
        object cbCountryW: TComboBox
          AnchorSideLeft.Control = edZipCodeW
          AnchorSideTop.Control = edZipCodeW
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = gbWorkAddress
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 229
          Width = 338
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 4
          BorderSpacing.Right = 8
          BorderSpacing.Bottom = 8
          ItemHeight = 15
          MaxLength = 65535
          OnChange = cbCountryChange
          ParentFont = False
          TabOrder = 8
          Visible = False
        end
        object lblCountryW: TLabel
          AnchorSideTop.Control = edCountryW
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edCompany
          Left = 137
          Height = 15
          Top = 264
          Width = 56
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          Caption = 'lblCountry'
          FocusControl = edCountryW
          ParentColor = False
          ParentFont = False
        end
        object edCountryW: TEdit
          AnchorSideLeft.Control = cbCountryW
          AnchorSideTop.Control = cbCountryW
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = gbWorkAddress
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 260
          Width = 338
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 4
          BorderSpacing.Right = 8
          BorderSpacing.Bottom = 8
          ParentFont = False
          TabOrder = 9
        end
      end
      object gbHomeAddress: TGroupBox
        Left = 8
        Height = 217
        Top = 335
        Width = 551
        Align = alTop
        AutoSize = True
        BorderSpacing.Left = 8
        BorderSpacing.Top = 16
        BorderSpacing.Right = 8
        BorderSpacing.Bottom = 8
        Caption = 'gbHomeAddress'
        ClientHeight = 197
        ClientWidth = 547
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object lblAddressH: TLabel
          AnchorSideTop.Control = edAddressH
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edAddressH
          Left = 138
          Height = 15
          Top = 4
          Width = 55
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          Caption = 'lblAddress'
          FocusControl = edAddressH
          ParentColor = False
          ParentFont = False
        end
        object edAddressH: TEdit
          AnchorSideTop.Control = gbHomeAddress
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 0
          Width = 338
          Anchors = [akTop, akRight]
          MaxLength = 100
          OnChange = ItemChanged
          ParentFont = False
          TabOrder = 0
        end
        object lblCityH: TLabel
          AnchorSideTop.Control = edCityH
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edCityH
          Left = 159
          Height = 15
          Top = 31
          Width = 34
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          Caption = 'lblCity'
          FocusControl = edCityH
          ParentColor = False
          ParentFont = False
        end
        object edCityH: TEdit
          AnchorSideLeft.Control = edAddressH
          AnchorSideTop.Control = edAddressH
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = edAddressH
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 27
          Width = 338
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 4
          MaxLength = 50
          OnChange = ItemChanged
          ParentFont = False
          TabOrder = 1
        end
        object lblStateH: TLabel
          AnchorSideTop.Control = edStateH
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edStateH
          Left = 154
          Height = 15
          Top = 58
          Width = 39
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          Caption = 'lblState'
          FocusControl = edStateH
          ParentColor = False
          ParentFont = False
        end
        object edStateH: TEdit
          AnchorSideLeft.Control = edCityH
          AnchorSideTop.Control = edCityH
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = edCityH
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 54
          Width = 338
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 4
          MaxLength = 25
          OnChange = ItemChanged
          ParentFont = False
          TabOrder = 2
        end
        object lblStateComboH: TLabel
          AnchorSideTop.Control = cbStateH
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = cbStateH
          Left = 118
          Height = 15
          Top = 85
          Width = 79
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 4
          Caption = 'lblStateCombo'
          FocusControl = cbStateH
          ParentColor = False
          ParentFont = False
          Visible = False
        end
        object cbStateH: TComboBox
          AnchorSideLeft.Control = edStateH
          AnchorSideTop.Control = edStateH
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = edStateH
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 81
          Width = 338
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 4
          ItemHeight = 15
          MaxLength = 65535
          ParentFont = False
          TabOrder = 3
          Visible = False
        end
        object lblZipCodeH: TLabel
          AnchorSideTop.Control = edZipCodeH
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edZipCodeH
          Left = 135
          Height = 15
          Top = 112
          Width = 58
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          Caption = 'lblZipCode'
          FocusControl = edZipCodeH
          ParentColor = False
          ParentFont = False
        end
        object edZipCodeH: TEdit
          AnchorSideLeft.Control = cbStateH
          AnchorSideTop.Control = cbStateH
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 108
          Width = 120
          BorderSpacing.Top = 4
          BorderSpacing.Right = 8
          MaxLength = 10
          OnChange = ItemChanged
          ParentFont = False
          TabOrder = 4
        end
        object lblCountryComboH: TLabel
          AnchorSideTop.Control = cbCountryH
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = cbCountryH
          Left = 97
          Height = 15
          Top = 139
          Width = 96
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          Caption = 'lblCountryCombo'
          FocusControl = cbCountryH
          ParentColor = False
          ParentFont = False
          Visible = False
        end
        object cbCountryH: TComboBox
          AnchorSideLeft.Control = edZipCodeH
          AnchorSideTop.Control = edZipCodeH
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = gbHomeAddress
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 135
          Width = 338
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 4
          BorderSpacing.Right = 8
          BorderSpacing.Bottom = 8
          ItemHeight = 15
          MaxLength = 65535
          OnChange = cbCountryChange
          ParentFont = False
          TabOrder = 5
          Visible = False
        end
        object lblCountryH: TLabel
          AnchorSideTop.Control = edCountryH
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edCountryH
          Left = 137
          Height = 15
          Top = 170
          Width = 56
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          Caption = 'lblCountry'
          FocusControl = edCountryH
          ParentColor = False
          ParentFont = False
        end
        object edCountryH: TEdit
          AnchorSideLeft.Control = cbCountryH
          AnchorSideTop.Control = cbCountryH
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = gbHomeAddress
          AnchorSideRight.Side = asrBottom
          Left = 201
          Height = 23
          Top = 166
          Width = 338
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 4
          BorderSpacing.Right = 8
          BorderSpacing.Bottom = 8
          ParentFont = False
          TabOrder = 6
        end
      end
    end
    object tabContact: TTabSheet
      Caption = 'tabContact'
      ClientHeight = 564
      ClientWidth = 567
      ImageIndex = 1
      object gbPhone: TGroupBox
        AnchorSideTop.Control = tabContact
        Left = 8
        Height = 159
        Top = 8
        Width = 384
        BorderSpacing.Left = 8
        BorderSpacing.Top = 8
        BorderSpacing.Right = 8
        Caption = 'Phone / fax'
        ClientHeight = 139
        ClientWidth = 380
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object cbPhone1: TComboBox
          AnchorSideLeft.Control = gbPhone
          Left = 8
          Height = 23
          Top = 0
          Width = 88
          BorderSpacing.Left = 8
          ItemHeight = 15
          MaxLength = 65535
          ParentFont = False
          Style = csDropDownList
          TabOrder = 0
        end
        object cbPhone2: TComboBox
          AnchorSideLeft.Control = gbPhone
          AnchorSideTop.Control = cbPhone1
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = cbPhone1
          AnchorSideRight.Side = asrBottom
          Left = 8
          Height = 23
          Top = 27
          Width = 88
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Top = 4
          ItemHeight = 15
          MaxLength = 65535
          ParentFont = False
          Style = csDropDownList
          TabOrder = 2
        end
        object cbPhone3: TComboBox
          AnchorSideLeft.Control = gbPhone
          AnchorSideTop.Control = cbPhone2
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = cbPhone1
          AnchorSideRight.Side = asrBottom
          Left = 8
          Height = 23
          Top = 54
          Width = 88
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Top = 4
          ItemHeight = 15
          MaxLength = 65535
          ParentFont = False
          Style = csDropDownList
          TabOrder = 4
        end
        object cbPhone4: TComboBox
          AnchorSideLeft.Control = gbPhone
          AnchorSideTop.Control = cbPhone3
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = cbPhone1
          AnchorSideRight.Side = asrBottom
          Left = 8
          Height = 23
          Top = 81
          Width = 88
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Top = 4
          ItemHeight = 15
          MaxLength = 65535
          ParentFont = False
          Style = csDropDownList
          TabOrder = 6
        end
        object edPhone4: TEdit
          AnchorSideLeft.Control = cbPhone4
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = cbPhone4
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edPhone3
          AnchorSideRight.Side = asrBottom
          Left = 100
          Height = 23
          Top = 81
          Width = 260
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Left = 4
          MaxLength = 25
          OnChange = ItemChanged
          ParentFont = False
          TabOrder = 7
        end
        object edPhone3: TEdit
          AnchorSideLeft.Control = cbPhone3
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = cbPhone3
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edPhone2
          AnchorSideRight.Side = asrBottom
          Left = 100
          Height = 23
          Top = 54
          Width = 260
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Left = 4
          MaxLength = 25
          OnChange = ItemChanged
          ParentFont = False
          TabOrder = 5
        end
        object edPhone2: TEdit
          AnchorSideLeft.Control = cbPhone2
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = cbPhone2
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edPhone1
          AnchorSideRight.Side = asrBottom
          Left = 100
          Height = 23
          Top = 27
          Width = 260
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Left = 4
          MaxLength = 25
          OnChange = ItemChanged
          ParentFont = False
          TabOrder = 3
        end
        object edPhone1: TEdit
          AnchorSideLeft.Control = cbPhone1
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = cbPhone1
          AnchorSideTop.Side = asrCenter
          Left = 100
          Height = 23
          Top = 0
          Width = 260
          BorderSpacing.Left = 4
          BorderSpacing.Right = 8
          MaxLength = 25
          OnChange = ItemChanged
          ParentFont = False
          TabOrder = 1
        end
        object cbPhone5: TComboBox
          AnchorSideLeft.Control = gbPhone
          AnchorSideTop.Control = cbPhone4
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = cbPhone1
          AnchorSideRight.Side = asrBottom
          Left = 8
          Height = 23
          Top = 108
          Width = 88
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Top = 4
          ItemHeight = 15
          MaxLength = 65535
          ParentFont = False
          Style = csDropDownList
          TabOrder = 8
        end
        object edPhone5: TEdit
          AnchorSideLeft.Control = cbPhone5
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = cbPhone5
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edPhone4
          AnchorSideRight.Side = asrBottom
          Left = 100
          Height = 23
          Top = 108
          Width = 260
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Left = 4
          BorderSpacing.Bottom = 8
          MaxLength = 25
          OnChange = ItemChanged
          ParentFont = False
          TabOrder = 9
        end
      end
      object gbEMail: TGroupBox
        AnchorSideTop.Control = gbPhone
        AnchorSideTop.Side = asrBottom
        Left = 8
        Height = 109
        Top = 183
        Width = 421
        AutoSize = True
        BorderSpacing.Top = 16
        BorderSpacing.Right = 8
        Caption = 'E-Mail'
        ClientHeight = 89
        ClientWidth = 417
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object edEMail1: TEdit
          AnchorSideLeft.Control = cbEMail1
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = cbEMail1
          AnchorSideTop.Side = asrCenter
          Left = 128
          Height = 23
          Top = 4
          Width = 281
          BorderSpacing.Left = 4
          BorderSpacing.Right = 8
          ParentFont = False
          TabOrder = 1
        end
        object edEMail2: TEdit
          AnchorSideLeft.Control = cbEMail2
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = cbEMail2
          AnchorSideTop.Side = asrCenter
          Left = 128
          Height = 23
          Top = 31
          Width = 281
          BorderSpacing.Left = 4
          ParentFont = False
          TabOrder = 3
        end
        object edEMail3: TEdit
          AnchorSideLeft.Control = cbEMail3
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = cbEMail3
          AnchorSideTop.Side = asrCenter
          Left = 128
          Height = 23
          Top = 58
          Width = 281
          BorderSpacing.Left = 4
          BorderSpacing.Bottom = 8
          ParentFont = False
          TabOrder = 5
        end
        object cbEMail1: TComboBox
          AnchorSideLeft.Control = gbEMail
          Left = 8
          Height = 23
          Top = 4
          Width = 116
          BorderSpacing.Left = 8
          BorderSpacing.Top = 4
          ItemHeight = 15
          MaxLength = 65535
          ParentFont = False
          Style = csDropDownList
          TabOrder = 0
        end
        object cbEMail2: TComboBox
          AnchorSideLeft.Control = gbEMail
          AnchorSideTop.Control = cbEMail1
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = cbEMail1
          AnchorSideRight.Side = asrBottom
          Left = 8
          Height = 23
          Top = 31
          Width = 116
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Top = 4
          ItemHeight = 15
          MaxLength = 65535
          ParentFont = False
          Style = csDropDownList
          TabOrder = 2
        end
        object cbEMail3: TComboBox
          AnchorSideLeft.Control = gbEMail
          AnchorSideTop.Control = cbEMail2
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = cbEMail1
          AnchorSideRight.Side = asrBottom
          Left = 8
          Height = 23
          Top = 58
          Width = 116
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Top = 4
          ItemHeight = 15
          MaxLength = 65535
          ParentFont = False
          Style = csDropDownList
          TabOrder = 4
        end
      end
      object gbWebsites: TGroupBox
        AnchorSideTop.Control = gbEMail
        AnchorSideTop.Side = asrBottom
        Left = 8
        Height = 82
        Top = 308
        Width = 454
        BorderSpacing.Top = 16
        BorderSpacing.Right = 8
        BorderSpacing.Bottom = 8
        Caption = 'Websites'
        ClientHeight = 62
        ClientWidth = 450
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        object edWebsite1: TEdit
          AnchorSideLeft.Control = cbWebsite1
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = cbWebsite1
          AnchorSideTop.Side = asrCenter
          Left = 157
          Height = 23
          Top = 0
          Width = 281
          BorderSpacing.Left = 4
          BorderSpacing.Right = 8
          ParentFont = False
          TabOrder = 1
        end
        object edWebsite2: TEdit
          AnchorSideLeft.Control = cbWebsite2
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = cbWebsite2
          AnchorSideTop.Side = asrCenter
          Left = 157
          Height = 23
          Top = 27
          Width = 281
          BorderSpacing.Left = 4
          BorderSpacing.Right = 8
          BorderSpacing.Bottom = 8
          ParentFont = False
          TabOrder = 3
        end
        object cbWebsite1: TComboBox
          AnchorSideLeft.Control = gbWebsites
          AnchorSideTop.Control = gbWebsites
          Left = 8
          Height = 23
          Top = 0
          Width = 145
          BorderSpacing.Left = 8
          ItemHeight = 15
          MaxLength = 65535
          ParentFont = False
          Style = csDropDownList
          TabOrder = 0
        end
        object cbWebsite2: TComboBox
          AnchorSideLeft.Control = gbWebsites
          AnchorSideTop.Control = cbWebsite1
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = cbWebsite1
          AnchorSideRight.Side = asrBottom
          Left = 8
          Height = 23
          Top = 27
          Width = 145
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Left = 8
          BorderSpacing.Top = 4
          BorderSpacing.Bottom = 8
          ItemHeight = 15
          MaxLength = 65535
          ParentFont = False
          Style = csDropDownList
          TabOrder = 2
        end
      end
    end
    object tabCustom: TTabSheet
      Caption = 'tabCustom'
      ClientHeight = 538
      ClientWidth = 518
      ImageIndex = 3
      object lblCustom1: TLabel
        Left = 8
        Height = 15
        Top = 12
        Width = 61
        BorderSpacing.Left = 8
        Caption = 'lblCustom1'
        FocusControl = edCustom1
        ParentColor = False
      end
      object lblCustom2: TLabel
        Left = 8
        Height = 15
        Top = 36
        Width = 61
        BorderSpacing.Left = 8
        Caption = 'lblCustom2'
        FocusControl = edCustom2
        ParentColor = False
      end
      object lblCustom3: TLabel
        Left = 8
        Height = 15
        Top = 60
        Width = 61
        BorderSpacing.Left = 8
        Caption = 'lblCustom3'
        FocusControl = edCustom3
        ParentColor = False
      end
      object lblCustom4: TLabel
        Left = 8
        Height = 15
        Top = 84
        Width = 61
        BorderSpacing.Left = 8
        Caption = 'lblCustom4'
        FocusControl = edCustom4
        ParentColor = False
      end
      object edCustom1: TEdit
        Left = 80
        Height = 23
        Top = 8
        Width = 337
        BorderSpacing.Right = 8
        MaxLength = 100
        OnChange = ItemChanged
        TabOrder = 0
      end
      object edCustom2: TEdit
        Left = 80
        Height = 23
        Top = 32
        Width = 337
        BorderSpacing.Right = 8
        MaxLength = 100
        OnChange = ItemChanged
        TabOrder = 1
      end
      object edCustom3: TEdit
        Left = 80
        Height = 23
        Top = 56
        Width = 337
        BorderSpacing.Right = 8
        MaxLength = 100
        OnChange = ItemChanged
        TabOrder = 2
      end
      object edCustom4: TEdit
        Left = 80
        Height = 23
        Top = 80
        Width = 337
        BorderSpacing.Right = 8
        BorderSpacing.Bottom = 8
        MaxLength = 100
        OnChange = ItemChanged
        TabOrder = 3
      end
    end
    object tabNotes: TTabSheet
      Caption = 'tabNotes'
      ClientHeight = 264
      ClientWidth = 472
      ImageIndex = 4
      object memoNotes: TMemo
        Left = 4
        Height = 300
        Top = 4
        Width = 600
        Align = alClient
        BorderSpacing.Around = 4
        Constraints.MinHeight = 300
        Constraints.MinWidth = 600
        MaxLength = 1024
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
  object pnlBottom: TPanel
    Left = 0
    Height = 37
    Top = 592
    Width = 575
    Align = alBottom
    BevelOuter = bvNone
    ClientHeight = 37
    ClientWidth = 575
    TabOrder = 1
    object OKBtn: TButton
      AnchorSideTop.Control = pnlBottom
      AnchorSideTop.Side = asrCenter
      Left = 415
      Height = 25
      Top = 6
      Width = 74
      Anchors = [akTop, akRight]
      Caption = 'OK'
      Default = True
      OnClick = OKBtnClick
      TabOrder = 0
    end
    object CancelBtn: TButton
      AnchorSideTop.Side = asrCenter
      Left = 493
      Height = 25
      Top = 6
      Width = 75
      Anchors = [akTop, akRight]
      Cancel = True
      Caption = 'Cancel'
      OnClick = CancelBtnClick
      TabOrder = 1
    end
  end
end