object FormFindDuplicity: TFormFindDuplicity
  Left = 455
  Height = 481
  Top = 397
  Width = 701
  Caption = 'Find duplicities'
  ClientHeight = 481
  ClientWidth = 701
  DesignTimePPI = 144
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  LCLVersion = '2.0.12.0'
  object ListView1: TListView
    Left = 5
    Height = 413
    Top = 63
    Width = 691
    Align = alClient
    BorderSpacing.Around = 5
    Columns = <    
      item
        Caption = 'Field'
        Width = 180
      end    
      item
        Caption = 'Contacts'
        Width = 360
      end    
      item
        Caption = 'Count'
        Width = 136
      end>
    OwnerData = True
    ParentFont = False
    PopupMenu = PopupMenu1
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
    OnData = ListView1Data
    OnDblClick = AShowContactsExecute
  end
  object Panel1: TPanel
    Left = 0
    Height = 58
    Top = 0
    Width = 701
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 58
    ClientWidth = 701
    ParentFont = False
    TabOrder = 1
    object ComboBoxField: TComboBox
      Left = 173
      Height = 41
      Top = 14
      Width = 326
      ItemHeight = 0
      OnChange = ComboBoxFieldChange
      ParentFont = False
      Style = csDropDownList
      TabOrder = 0
    end
    object Label1: TLabel
      Left = 13
      Height = 24
      Top = 19
      Width = 111
      Caption = 'Contact field:'
      ParentColor = False
      ParentFont = False
    end
  end
  object ActionList1: TActionList
    Left = 262
    Top = 154
    object AShowContacts: TAction
      Caption = 'Show contacts'
      OnExecute = AShowContactsExecute
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 90
    Top = 149
    object MenuItem1: TMenuItem
      Action = AShowContacts
    end
  end
end