object DlgCntact: TDlgCntact Left = 300 Top = 109 AutoScroll = False AutoSize = True BorderIcons = [biSystemMenu] Caption = 'Edit Contact' ClientHeight = 169 ClientWidth = 320 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 0 Top = 80 Width = 52 Height = 13 Caption = 'user name:' end object Label2: TLabel Left = 0 Top = 0 Width = 74 Height = 13 Caption = 'user ip address:' end object LMsgError: TLabel Left = 10 Top = 123 Width = 58 Height = 13 Caption = 'LMsgError' Font.Charset = DEFAULT_CHARSET Font.Color = clGreen Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 0 Top = 40 Width = 37 Height = 13 Caption = 'WavID:' end object Label4: TLabel Left = 152 Top = 0 Width = 19 Height = 13 Hint = 'Contact can view their port from thier Tools->Options window' Caption = 'Port' ParentShowHint = False ShowHint = True end object Label5: TLabel Left = 248 Top = 40 Width = 48 Height = 13 Hint = 'Contact can view their port from thier Tools->Options window' Caption = 'TimeZone' ParentShowHint = False ShowHint = True end object EIp: TEdit Left = 8 Top = 16 Width = 97 Height = 21 MaxLength = 15 TabOrder = 0 Text = 'EIp' OnKeyPress = EIpKeyPress end object EName: TEdit Left = 8 Top = 96 Width = 289 Height = 21 MaxLength = 30 TabOrder = 2 Text = 'EName' OnKeyPress = ENameKeyPress end object BAdd: TButton Left = 5 Top = 144 Width = 75 Height = 25 Caption = 'Add' TabOrder = 3 OnClick = BAddClick end object BErase: TButton Left = 85 Top = 144 Width = 70 Height = 25 Caption = 'Delete' TabOrder = 4 OnClick = BEraseClick end object BRename: TButton Left = 162 Top = 144 Width = 85 Height = 25 Caption = 'Rename' TabOrder = 5 OnClick = BRenameClick end object BClose: TButton Left = 253 Top = 144 Width = 67 Height = 25 Caption = 'Close' TabOrder = 6 OnClick = BCloseClick end object BClear: TButton Left = 176 Top = 13 Width = 57 Height = 25 Caption = 'Clear' TabOrder = 7 OnClick = BClearClick end object BLookup: TButton Left = 248 Top = 13 Width = 57 Height = 25 Caption = 'Lookup' Enabled = False TabOrder = 8 OnClick = BLookup1Click end object EWavID: TEdit Left = 8 Top = 56 Width = 185 Height = 21 Enabled = False ReadOnly = True TabOrder = 9 Text = 'EWavID' end object EPort: TEdit Left = 112 Top = 16 Width = 57 Height = 21 MaxLength = 5 TabOrder = 1 OnKeyPress = EPortKeyPress end object ETZ: TEdit Left = 256 Top = 56 Width = 41 Height = 21 MaxLength = 3 TabOrder = 10 OnKeyPress = ETZKeyPress end end