object frmAddContact: TfrmAddContact Left = 154 Top = 189 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Add new contact' ClientHeight = 165 ClientWidth = 256 Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 8 Top = 4 Width = 32 Height = 32 AutoSize = True Picture.Data = {} Transparent = True end object Label1: TLabel Left = 48 Top = 4 Width = 139 Height = 13 Caption = 'Add new contact window' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 48 Top = 20 Width = 201 Height = 41 AutoSize = False Caption = 'Please type the name and e-mail of the contact here below. You w' + 'ill be able to modify other properties later on.' Transparent = True WordWrap = True end object Label3: TLabel Left = 8 Top = 78 Width = 27 Height = 13 Caption = 'Name' end object Label4: TLabel Left = 8 Top = 110 Width = 28 Height = 13 Caption = 'E-Mail' end object edtName: TEdit97 Left = 40 Top = 76 Width = 209 Height = 19 TabOrder = 0 OnChange = edtNameChange end object btnOK: TButton Left = 60 Top = 138 Width = 65 Height = 23 Caption = '&OK' Default = True Enabled = False ModalResult = 1 TabOrder = 2 OnClick = btnOKClick end object btnCancel: TButton Left = 132 Top = 138 Width = 65 Height = 23 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 3 end object edtEMail: TEdit97 Left = 40 Top = 108 Width = 209 Height = 19 TabOrder = 1 OnChange = edtNameChange end end