object FormFindDuplicity: TFormFindDuplicity
  Left = 455
  Height = 523
  Top = 355
  Width = 807
  Caption = 'Find duplicities'
  ClientHeight = 523
  ClientWidth = 807
  DesignTimePPI = 144
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  LCLVersion = '2.2.6.0'
  object ListView1: TListView
    Left = 5
    Height = 455
    Top = 63
    Width = 797
    Align = alClient
    BorderSpacing.Around = 5
    Columns = <    
      item
        Caption = 'Field'
        Width = 180
      end    
      item
        Caption = 'Contacts'
        Width = 360
      end    
      item
        Caption = 'Count'
        Width = 243
      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 = 807
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 58
    ClientWidth = 807
    ParentFont = False
    TabOrder = 1
    object ComboBoxField: TComboBox
      Left = 232
      Height = 42
      Top = 16
      Width = 326
      ItemHeight = 0
      OnChange = ComboBoxFieldChange
      ParentFont = False
      Style = csDropDownList
      TabOrder = 0
    end
    object Label1: TLabel
      Left = 13
      Height = 26
      Top = 19
      Width = 135
      Caption = 'By contact field:'
      ParentColor = False
      ParentFont = False
    end
    object ButtonMerge: TButton
      Left = 568
      Height = 38
      Top = 16
      Width = 113
      Caption = 'Merge'
      OnClick = ButtonMergeClick
      TabOrder = 1
    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