object DnsLookupForm: TDnsLookupForm Left = 135 Top = 152 BorderStyle = bsSingle Caption = 'DnsLookup - http://www.overbyte.be' ClientHeight = 179 ClientWidth = 416 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnCreate = FormCreate TextHeight = 13 object Label1: TLabel Left = 8 Top = 24 Width = 50 Height = 13 Caption = 'HostName' end object IPLabel: TLabel Left = 8 Top = 71 Width = 36 Height = 13 Caption = 'IPLabel' end object Label2: TLabel Left = 8 Top = 48 Width = 63 Height = 13 Caption = 'SocketFamily' end object HostEdit: TEdit Left = 77 Top = 16 Width = 156 Height = 21 TabOrder = 0 Text = 'HostEdit' end object LookupButton: TButton Left = 240 Top = 16 Width = 89 Height = 25 Caption = '&Lookup' Default = True TabOrder = 1 OnClick = LookupButtonClick end object CancelButton: TButton Left = 336 Top = 16 Width = 75 Height = 25 Caption = '&Cancel' TabOrder = 2 OnClick = CancelButtonClick end object IPListMemo: TMemo Left = 8 Top = 90 Width = 401 Height = 81 Lines.Strings = ( 'IPListMemo') ScrollBars = ssVertical TabOrder = 3 end object ReverseLookupButton: TButton Left = 240 Top = 48 Width = 89 Height = 25 Caption = '&Reverse Lookup' TabOrder = 4 OnClick = ReverseLookupButtonClick end object LocalIPButton: TButton Left = 336 Top = 48 Width = 75 Height = 25 Caption = 'Local&IP' TabOrder = 5 OnClick = LocalIPButtonClick end object SocketFamilyComboBox: TComboBox Left = 77 Top = 44 Width = 157 Height = 21 Style = csDropDownList ItemIndex = 0 TabOrder = 6 Text = 'sfAny' Items.Strings = ( 'sfAny' 'sfAnyIPv4' 'sfAnyIPv6' 'sfIPv4' 'sfIPv6') end object WSocket1: TWSocket LineEnd = #13#10 Proto = 'tcp' LocalAddr = '0.0.0.0' LocalAddr6 = '::' LocalPort = '0' SocksLevel = '5' ExclusiveAddr = False ComponentOptions = [] ReqVerLow = 1 ReqVerHigh = 1 OnDnsLookupDone = WSocket1DnsLookupDone SocketErrs = wsErrTech Left = 208 Top = 104 end end