object frAddress: TfrAddress
  Left = 108
  Top = 21
  ActiveControl = EFName
  AutoScroll = False
  Caption = 'Address Book'
  ClientHeight = 418
  ClientWidth = 524
  Color = clSilver
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  PixelsPerInch = 96
  OnCreate = FormCreate
  TextHeight = 16
  object Panel1: TPanel
    Left = 24
    Top = 8
    Width = 480
    Height = 334
    Color = clSilver
    Font.Color = clYellow
    Font.Height = -15
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 0
    object Label2: TLabel
      Left = 49
      Top = 8
      Width = 24
      Height = 15
      Caption = 'First'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 274
      Top = 7
      Width = 22
      Height = 15
      Caption = 'Last'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Address1: TLabel
      Left = 21
      Top = 36
      Width = 52
      Height = 15
      Caption = 'Address1'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Address2: TLabel
      Left = 21
      Top = 64
      Width = 52
      Height = 15
      Caption = 'Address2'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object City: TLabel
      Left = 51
      Top = 92
      Width = 22
      Height = 15
      Caption = 'City'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object State: TLabel
      Left = 270
      Top = 92
      Width = 26
      Height = 15
      Caption = 'State'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Zip: TLabel
      Left = 349
      Top = 91
      Width = 18
      Height = 15
      Caption = 'Zip'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Company: TLabel
      Left = 22
      Top = 120
      Width = 51
      Height = 15
      Caption = 'Company'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object HPhone: TLabel
      Left = 5
      Top = 148
      Width = 68
      Height = 15
      Caption = 'Home Phone'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object WPhone: TLabel
      Left = 6
      Top = 176
      Width = 67
      Height = 15
      Caption = 'Work Phone'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Fax: TLabel
      Left = 279
      Top = 148
      Width = 17
      Height = 15
      Caption = 'Fax'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Comment: TLabel
      Left = 23
      Top = 260
      Width = 50
      Height = 15
      Caption = 'Comment'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object EMail1: TLabel
      Left = 36
      Top = 204
      Width = 37
      Height = 15
      Caption = 'EMail1'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Category: TLabel
      Left = 248
      Top = 176
      Width = 48
      Height = 15
      Caption = 'Category'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object EMail2: TLabel
      Left = 34
      Top = 232
      Width = 40
      Height = 15
      Caption = 'EMail2'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton1: TSpeedButton
      Left = 8
      Top = 8
      Width = 25
      Height = 25
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object ELName: TDBEdit
      Tag = 1
      Left = 301
      Top = 8
      Width = 169
      Height = 25
      Hint = 'Last Name'
      Color = clNavy
      DataField = 'LNAME'
      DataSource = DataSource1
      Font.Color = clYellow
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 0
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 1
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object EFName: TDBEdit
      Left = 77
      Top = 8
      Width = 169
      Height = 25
      Hint = 'First Name'
      Color = clNavy
      DataField = 'FNAME'
      DataSource = DataSource1
      Font.Color = clYellow
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 0
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 0
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object EAddress1: TDBEdit
      Left = 77
      Top = 36
      Width = 393
      Height = 25
      Hint = 'Address1'
      Color = clNavy
      DataField = 'ADDRESS1'
      DataSource = DataSource1
      Font.Color = clYellow
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 0
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 2
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object EAddress2: TDBEdit
      Tag = 3
      Left = 77
      Top = 64
      Width = 393
      Height = 25
      Hint = 'Address2'
      Color = clNavy
      DataField = 'ADDRESS2'
      DataSource = DataSource1
      Font.Color = clYellow
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 0
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 3
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object ECity: TDBEdit
      Tag = 4
      Left = 77
      Top = 92
      Width = 161
      Height = 25
      Hint = 'City'
      Color = clNavy
      DataField = 'CITY'
      DataSource = DataSource1
      Font.Color = clYellow
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 0
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 4
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object EState: TDBEdit
      Tag = 5
      Left = 301
      Top = 92
      Width = 41
      Height = 25
      Hint = 'State'
      Color = clNavy
      DataField = 'STATE'
      DataSource = DataSource1
      Font.Color = clYellow
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 0
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 5
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object EZip: TDBEdit
      Tag = 6
      Left = 373
      Top = 92
      Width = 97
      Height = 25
      Hint = 'Zip'
      Color = clNavy
      DataField = 'ZIP'
      DataSource = DataSource1
      Font.Color = clYellow
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 0
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 6
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object ECompany: TDBEdit
      Tag = 7
      Left = 77
      Top = 120
      Width = 393
      Height = 25
      Hint = 'Company'
      Color = clNavy
      DataField = 'COMPANY'
      DataSource = DataSource1
      Font.Color = clYellow
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 0
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 7
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object EHomePhone: TDBEdit
      Tag = 8
      Left = 76
      Top = 148
      Width = 162
      Height = 25
      Hint = 'Home Phone'
      Color = clNavy
      DataField = 'HPHONE'
      DataSource = DataSource1
      Font.Color = clYellow
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 0
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 8
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object EWorkPhone: TDBEdit
      Tag = 9
      Left = 76
      Top = 176
      Width = 162
      Height = 25
      Hint = 'Work Phone'
      Color = clNavy
      DataField = 'WPhone'
      DataSource = DataSource1
      Font.Color = clYellow
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 0
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 9
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object MComments: TDBMemo
      Tag = 10
      Left = 76
      Top = 260
      Width = 394
      Height = 65
      Hint = 'Comment'
      Color = clNavy
      DataField = 'COMMENT'
      DataSource = DataSource1
      Font.Color = clYellow
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 14
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object EFax: TDBEdit
      Left = 301
      Top = 148
      Width = 169
      Height = 25
      Hint = 'EMail'
      Color = clNavy
      DataField = 'Fax'
      DataSource = DataSource1
      Font.Color = clYellow
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 0
      ParentFont = False
      TabOrder = 10
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object EEMail1: TDBEdit
      Left = 76
      Top = 204
      Width = 394
      Height = 25
      Hint = 'Fax'
      Color = clNavy
      DataField = 'EMail1'
      DataSource = DataSource1
      Font.Color = clYellow
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 0
      ParentFont = False
      TabOrder = 12
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object EEMail2: TDBEdit
      Left = 76
      Top = 232
      Width = 394
      Height = 25
      Color = clNavy
      DataField = 'EMail2'
      DataSource = DataSource1
      Font.Color = clYellow
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 0
      ParentFont = False
      TabOrder = 13
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object cbCategory: TDBComboBox
      Left = 301
      Top = 176
      Width = 167
      Height = 25
      Color = clNavy
      DataField = 'CATEGORY'
      DataSource = DataSource1
      ItemHeight = 17
      TabOrder = 11
      OnEnter = EFNameEnter
    end
  end
  object Panel2: TPanel
    Left = 24
    Top = 352
    Width = 481
    Height = 57
    TabOrder = 1
    object Label1: TLabel
      Left = 208
      Top = 35
      Width = 42
      Height = 19
      Caption = 'Label1'
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Bevel1: TBevel
      Left = 0
      Top = 32
      Width = 481
      Height = 9
      Shape = bsTopLine
      Style = bsRaised
    end
    object BNext: TButton
      Tag = 4
      Left = 96
      Top = 5
      Width = 33
      Height = 22
      Hint = 'Next'
      Caption = '>'
      TabOrder = 2
      OnClick = CommandClick
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object BPrevious: TButton
      Tag = 2
      Left = 56
      Top = 5
      Width = 33
      Height = 22
      Hint = 'Prior'
      Caption = '<'
      TabOrder = 1
      OnClick = CommandClick
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object Insert: TButton
      Tag = 1
      Left = 280
      Top = 6
      Width = 90
      Height = 23
      Hint = 'Insert'
      Caption = 'Insert'
      Enabled = False
      TabOrder = 5
      OnClick = CommandClick
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object EEdit: TButton
      Tag = 3
      Left = 184
      Top = 6
      Width = 90
      Height = 23
      Hint = 'Edit'
      Caption = 'Edit'
      TabOrder = 4
      OnClick = CommandClick
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object Cancel: TButton
      Tag = 5
      Left = 374
      Top = 6
      Width = 90
      Height = 23
      Hint = 'Post'
      Caption = 'Cancel'
      Enabled = False
      TabOrder = 6
      OnClick = CommandClick
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object First: TButton
      Tag = 7
      Left = 16
      Top = 5
      Width = 33
      Height = 22
      Hint = 'First'
      Caption = '<<'
      TabOrder = 0
      OnClick = CommandClick
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
    object Last: TButton
      Tag = 8
      Left = 136
      Top = 5
      Width = 33
      Height = 22
      Hint = 'Last'
      Caption = '>>'
      TabOrder = 3
      OnClick = CommandClick
      OnEnter = EFNameEnter
      OnMouseMove = EFNameMouseMove
    end
  end
  object Table1: TTable
    DatabaseName = 'Unleashed'
    IndexName = 'LNameIndex'
    TableName = 'ADDRESS'
    TableType = ttParadox
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = Table1
    OnDataChange = DataSource1DataChange
    Top = 32
  end
  object MainMenu1: TMainMenu
    Top = 64
    object File1: TMenuItem
      Caption = 'File'
      object Print1: TMenuItem
        Tag = 6
        Caption = 'Print'
        OnClick = CommandClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = CommandClick
      end
    end
    object Options1: TMenuItem
      Caption = 'Options'
      object Delete1: TMenuItem
        Caption = 'Delete'
        Enabled = False
        OnClick = Delete1Click
      end
      object Search1: TMenuItem
        Caption = 'Search'
        OnClick = Search1Click
      end
      object Filter1: TMenuItem
        Caption = 'Filter'
        OnClick = Filter1Click
      end
      object Category1: TMenuItem
        Caption = 'Set Category'
        OnClick = Category1Click
      end
    end
    object Sorts1: TMenuItem
      Caption = 'Sorts'
      object FirstName1: TMenuItem
        Caption = 'First Name'
        OnClick = SortMenu
      end
      object LastName1: TMenuItem
        Tag = 1
        Caption = 'Last Name'
        OnClick = SortMenu
      end
      object Company1: TMenuItem
        Tag = 2
        Caption = 'Company'
        OnClick = SortMenu
      end
    end
    object Colors1: TMenuItem
      Caption = 'Colors'
      object FormColor1: TMenuItem
        Caption = 'Form'
        OnClick = ColorClick
      end
      object EditColor1: TMenuItem
        Tag = 1
        Caption = 'Edits'
        OnClick = ColorClick
      end
      object EditText1: TMenuItem
        Tag = 2
        Caption = 'Edit Text'
        OnClick = ColorClick
      end
      object Labels1: TMenuItem
        Tag = 3
        Caption = 'Labels'
        OnClick = ColorClick
      end
      object Panels1: TMenuItem
        Tag = 4
        Caption = 'Panels'
        OnClick = ColorClick
      end
    end
    object Marks1: TMenuItem
      Caption = 'Marks'
      object MarkAll1: TMenuItem
        Tag = 101
        Caption = 'Mark All'
        OnClick = Marks1Click
      end
      object ClearAllMarks1: TMenuItem
        Tag = 100
        Caption = 'Clear All Marks'
        OnClick = Marks1Click
      end
      object ShowMarked1: TMenuItem
        Caption = 'Show Marked'
      end
      object PrintMarkedtoFile1: TMenuItem
        Caption = 'Print Marked to File'
        OnClick = PrintMarkedtoFile1Click
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object About1: TMenuItem
        Caption = 'About'
        OnClick = About1Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Top = 96
    object MouseHints1: TMenuItem
      Caption = 'Status Mouse Hints'
      OnClick = MouseHints1Click
    end
    object FlybyMouseHints1: TMenuItem
      Caption = 'Fly-by Mouse Hints'
      OnClick = FlybyMouseHints1Click
    end
  end
  object Table2: TTable
    DatabaseName = 'Unleashed'
    TableName = 'CATS.DB'
    Top = 128
  end
  object ColorDialog1: TColorDialog
    Top = 160
  end
  object Report1: TReport
    ReportName = 'address.rpt'
    AutoUnload = True
    InitialValues.Strings = (
      #39'<<Filter>>'#39'='#39'Family'#39)
    Top = 192
  end
end