object FindForm: TFindForm Left = 378 Top = 303 Width = 420 Height = 211 Caption = 'Find Contact' Color = clBtnFace DefaultMonitor = dmMainForm Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate OnKeyDown = FormKeyDown OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 412 Height = 60 Align = alTop TabOrder = 0 object LabelAcc: TLabel Left = 9 Top = 7 Width = 105 Height = 13 Caption = 'ICQ# / SN, Nickname' end object EditFind: TEdit Left = 8 Top = 24 Width = 265 Height = 21 TabOrder = 1 OnChange = EditFindChange end object ButtonClose: TButton Left = 295 Top = 22 Width = 98 Height = 25 Caption = 'Close' TabOrder = 0 OnClick = ButtonCloseClick end end object Panel2: TPanel Left = 0 Top = 60 Width = 412 Height = 124 Align = alClient TabOrder = 1 object ListViewRes: TListView Left = 1 Top = 1 Width = 410 Height = 122 Align = alClient Columns = < item Caption = 'ICQ# / SN' MaxWidth = 90 MinWidth = 90 Width = 90 end item Caption = 'Nick Name' MinWidth = 2 Width = 100 end item Caption = 'Email' MinWidth = 2 end item Caption = 'Cellular#' MinWidth = 2 Width = 75 end item Caption = 'Notice' MinWidth = 2 Width = 70 end> HideSelection = False ReadOnly = True RowSelect = True ParentShowHint = False ShowHint = True SmallImages = MainForm.ImageListCLS TabOrder = 0 ViewStyle = vsReport OnColumnClick = ListViewResColumnClick OnCompare = ListViewResCompare OnContextPopup = ListViewResContextPopup OnDblClick = ListViewResDblClick OnEnter = ListViewResEnter OnKeyDown = ListViewResKeyDown OnSelectItem = ListViewResSelectItem end end object PopupMenuFind: TPopupMenu AutoHotkeys = maManual Images = MainForm.ImageList1 Left = 394 Top = 322 object CustomItemCopySN: TMenuItem Caption = 'Copy User'#39's Uin or SN' OnClick = CustomItemCopySNClick end object CustomItemUserDets: TMenuItem Caption = 'User Details' OnClick = CustomItemUserDetsClick end object CustomItemSendMsg: TMenuItem Caption = 'Send Message' OnClick = CustomItemSendMsgClick end end end