object DlgProfile: TDlgProfile Left = 189 Top = 94 Width = 510 Height = 432 Caption = 'Wavago - My Profile' Color = clBtnFace Constraints.MaxHeight = 432 Constraints.MaxWidth = 510 Constraints.MinHeight = 432 Constraints.MinWidth = 510 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OldCreateOrder = False OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Shape1: TShape Left = 0 Top = 0 Width = 500 Height = 43 Pen.Style = psClear end object Image3: TImage Left = 5 Top = 6 Width = 35 Height = 31 Picture.Data = {} end object Shape2: TShape Left = 24 Top = 200 Width = 465 Height = 1 Pen.Color = clGray end object Shape3: TShape Left = 24 Top = 308 Width = 465 Height = 1 Pen.Color = clGray end object WavID: TStaticText Left = 48 Top = 11 Width = 53 Height = 23 Caption = 'WavID' Color = clWhite Font.Charset = EASTEUROPE_CHARSET Font.Color = clMaroon Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False TabOrder = 22 end object FName: TEdit Left = 88 Top = 72 Width = 153 Height = 22 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 32 ParentFont = False TabOrder = 1 OnKeyDown = OnKeyDown OnKeyPress = CharEntryKeyPress end object LName: TEdit Left = 88 Top = 96 Width = 153 Height = 22 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 32 ParentFont = False TabOrder = 2 OnKeyDown = OnKeyDown OnKeyPress = CharEntryKeyPress end object FNAMET: TStaticText Left = 5 Top = 75 Width = 55 Height = 18 Caption = 'First Name' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 23 end object Gender: TRadioGroup Left = 320 Top = 56 Width = 169 Height = 38 Caption = 'Gender' Columns = 2 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 OnClick = GenderClick end object DOBT: TStaticText Left = 248 Top = 123 Width = 64 Height = 18 Caption = 'Date of Birth' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 24 end object DOBDD: TComboBox Left = 320 Top = 120 Width = 41 Height = 21 Style = csDropDownList DropDownCount = 15 ItemHeight = 13 ItemIndex = 0 TabOrder = 7 Text = 'dd' OnChange = ControlBoxChange Items.Strings = ( 'dd' '1' '2' '3' '4' '5' '6' '7' '8' '9' '10' '11' '12' '13' '14' '15' '16' '17' '18' '19' '20' '21' '22' '23' '24' '25' '26' '27' '28' '29' '30' '31') end object DOBMM: TComboBox Left = 360 Top = 120 Width = 73 Height = 21 Style = csDropDownList DropDownCount = 13 ItemHeight = 13 ItemIndex = 0 TabOrder = 8 Text = 'mm' OnChange = ControlBoxChange Items.Strings = ( 'mm' 'January' 'February' 'March' 'April' 'May' 'June' 'July' 'August' 'September' 'October' 'November' 'December') end object DOBYY: TComboBox Left = 432 Top = 120 Width = 57 Height = 21 Style = csDropDownList DropDownCount = 20 ItemHeight = 13 TabOrder = 9 OnChange = ControlBoxChange end object Country: TComboBox Left = 88 Top = 208 Width = 153 Height = 21 Style = csDropDownList Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ItemIndex = 0 ParentFont = False TabOrder = 11 Text = 'Country' OnChange = ControlBoxChange Items.Strings = ( 'Country' 'Afghanistan (001' + ') ' 'Albania (002' + ') ' 'Algeria (003' + ') ' 'Andorra (004' + ') ' 'Angola (005' + ') ' 'Antigua (006' + ') ' 'Argentina (007' + ') ' 'Armenia (008' + ') ' 'Australia (009' + ') ' 'Austria (010' + ') ' 'Azerbaijan (011' + ') ' 'Bahamas (012' + ') ' 'Bahrain (013' + ') ' 'Bangladesh (014' + ') ' 'Barbados (015' + ') ' 'Belarus (016' + ') ' 'Belgium (017' + ') ' 'Belize (018' + ') ' 'Benin (019' + ') ' 'Bermuda (198' + ') ' 'Bhutan (020' + ') ' 'Bolivia (021' + ') ' 'Bosnia (022' + ') ' 'Botswana (023' + ') ' 'Brazil (024' + ') ' 'British Virgin Islands (199' + ') ' 'Brunei (025' + ') ' 'Bulgaria (026' + ') ' 'Burkina (027' + ') ' 'Burma (028' + ') ' 'Burundi (029' + ') ' 'Cambodia (030' + ') ' 'Cameroon (031' + ') ' 'Canada (032' + ') ' 'Cape Verde (033' + ') ' 'Cayman Islands (200' + ') ' 'Central African Republic (034' + ') ' 'Chad (035' + ') ' 'Chile (036' + ') ' 'China (037' + ') ' 'Colombia (038' + ') ' 'Comoros (039' + ') ' 'Congo (040' + ') ' 'Costa Rica (197' + ') ' 'Croatia (158' + ') ' 'Cuba (159' + ') ' 'Cyprus (160' + ') ' 'Czech Republic (161' + ') ' 'Darussalam (162' + ') ' 'Denmark (164' + ') ' 'Djibouti (165' + ') ' 'Dominica (166' + ') ' 'Dominican Republic (167' + ') ' 'Ecuador (168' + ') ' 'Egypt (169' + ') ' 'El Salvador (170' + ') ' 'Equatorial Guinea (171' + ') ' 'Eritrea (172' + ') ' 'Estonia (173' + ') ' 'Ethiopia (174' + ') ' 'Faso (175' + ') ' 'Fiji (176' + ') ' 'Finland (177' + ') ' 'France (178' + ') ' 'Gabon (179' + ') ' 'Gambia (180' + ') ' 'Germany (181' + ') ' 'Ghana (182' + ') ' 'Greece (183' + ') ' 'Grenada (184' + ') ' 'Guatemala (185' + ') ' 'Guinea (186' + ') ' 'Guyana (187' + ') ' 'Haiti (188' + ') ' 'Honduras (189' + ') ' 'Hungary (190' + ') ' 'Iceland (191' + ') ' 'India (192' + ') ' 'Indonesia (193' + ') ' 'Iran (194' + ') ' 'Iraq (195' + ') ' 'Ireland (196' + ') ' 'Israel (042' + ') ' 'Italy (043' + ') ' 'Ivory Coast (041' + ') ' 'Jamaica (044' + ') ' 'Japan (045' + ') ' 'Jordan (046' + ') ' 'Kazakhstan (047' + ') ' 'Kenya (048' + ') ' 'Kiribati (049' + ') ' 'Korea North (050' + ') ' 'Korea South (051' + ') ' 'Kuwait (052' + ') ' 'Kyrgyzstan (053' + ') ' 'Laos (054' + ') ' 'Latvia (055' + ') ' 'Lebanon (056' + ') ' 'Leone (057' + ') ' 'Lesotho (058' + ') ' 'Liberia (059' + ') ' 'Libya (060' + ') ' 'Liechtenstein (061' + ') ' 'Lithuania (062' + ') ' 'Luxembourg (063' + ') ' 'Macedonia (064' + ') ' 'Madagascar (065' + ') ' 'Malawi (066' + ') ' 'Malaysia (067' + ') ' 'Maldives (068' + ') ' 'Mali (069' + ') ' 'Malta (070' + ') ' 'Marshall Islands (071' + ') ' 'Mauritania (072' + ') ' 'Mauritius (073' + ') ' 'Mexico (074' + ') ' 'Micronesia (075' + ') ' 'Moldova (076' + ') ' 'Monaco (077' + ') ' 'Mongolia (078' + ') ' 'Morocco (079' + ') ' 'Mozambique (080' + ') ' 'Myanmar (081' + ') ' 'Namibia (082' + ') ' 'Nauru (083' + ') ' 'Nepal (084' + ') ' 'New Zealand (086' + ') ' 'Nicaragua (087' + ') ' 'Niger (088' + ') ' 'Nigeria (089' + ') ' 'Norway (090' + ') ' 'Oman (091' + ') ' 'Pakistan (092' + ') ' 'Palau (093' + ') ' 'Panama (094' + ') ' 'Papau New Guinea (203' + ') ' 'Paraguay (096' + ') ' 'Peru (097' + ') ' 'Poland (098' + ') ' 'Portugal (099' + ') ' 'Qatar (100' + ') ' 'Republic Of Yemen (101' + ') ' 'Romania (102' + ') ' 'Russia (103' + ') ' 'Rwanda (104' + ') ' 'Saint Pierre and Miquelon (201' + ') ' 'San Marino (105' + ') ' 'Satilde;o Tomeacute; (106' + ') ' 'Saudi Arabia (107' + ') ' 'Senegal (108' + ') ' 'Serbia and Montenegro (202' + ') ' 'Seychelles (109' + ') ' 'Sierra (110' + ') ' 'Singapore (111' + ') ' 'Slovakia (112' + ') ' 'Slovenia (113' + ') ' 'Solomon Islands (114' + ') ' 'Somalia (115' + ') ' 'South Africa (116' + ') ' 'Spain (117' + ') ' 'Sri Lanka (118' + ') ' 'St. Kitts and Nevis (119' + ') ' 'St. Lucia (120' + ') ' 'St. Vincent (121' + ') ' 'Sudan (122' + ') ' 'Suriname (123' + ') ' 'Swaziland (124' + ') ' 'Sweden (125' + ') ' 'Switzerland (126' + ') ' 'Syria (127' + ') ' 'Taiwan (128' + ') ' 'Tajikistan (129' + ') ' 'Tanzania (130' + ') ' 'Thailand (131' + ') ' 'The Grenadines (132' + ') ' 'The Netherlands (133' + ') ' 'The Philippines (134' + ') ' 'Togo (135' + ') ' 'Tonga (136' + ') ' 'Trinidad (137' + ') ' 'Tunisia (138' + ') ' 'Turkey (139' + ') ' 'Turkmenistan (140' + ') ' 'Tuvalu (141' + ') ' 'Uganda (142' + ') ' 'Ukraine (143' + ') ' 'United Arab Emirates (144' + ') ' 'United Kingdom (145' + ') ' 'United States of America (146' + ') ' 'Uruguay (147' + ') ' 'Uzbekistan (148' + ') ' 'Vanuatu (149' + ') ' 'Venezuela (150' + ') ' 'Vietnam (151' + ') ' 'Western Sahara (152' + ') ' 'Western Samoa (153' + ') ' 'Yugoslavia (154' + ') ' 'Zaire (155' + ') ' 'Zambia (156' + ') ' 'Zimbabwe (157' + ') ') end object COUNTRYT: TStaticText Left = 5 Top = 211 Width = 42 Height = 18 Caption = 'Country' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 25 end object SPT: TStaticText Left = 5 Top = 235 Width = 74 Height = 18 Caption = 'State/Province' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 26 end object CITYT: TStaticText Left = 5 Top = 259 Width = 22 Height = 18 Caption = 'City' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 27 end object LANGT: TStaticText Left = 5 Top = 283 Width = 52 Height = 18 Caption = 'Language' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 28 end object Language: TComboBox Left = 88 Top = 280 Width = 153 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 14 OnChange = ControlBoxChange Items.Strings = ( 'Language (000' + ')' 'Bulgarian (022' + ') ' 'Chinese Mandarin (008' + ') ' 'Chinese Zhuang (009' + ') ' 'Croation (023' + ') ' 'Czech (010' + ') ' 'Danish (011' + ') ' 'Dutch (012' + ') ' 'Eastonian (024' + ') ' 'English (001' + ') ' 'Filipino (025' + ') ' 'Finnish (026' + ') ' 'French (002' + ') ' 'German (003' + ') ' 'Greek (027' + ') ' 'Gujarati (013' + ') ' 'Hindi (014' + ') ' 'Indonesian (028' + ') ' 'Italian (015' + ') ' 'Japanese (004' + ') ' 'Korean (005' + ') ' 'Marathi (029' + ') ' 'Norwegian (016' + ') ' 'Panjabi (031' + ') ' 'Polish (006' + ') ' 'Portugese (017' + ') ' 'Punjabi (030' + ') ' 'Romanian (032' + ') ' 'Russian (018' + ') ' 'Slovak (033' + ') ' 'Spanish (007' + ') ' 'Swedish (019' + ') ' 'Tamil (034' + ') ' 'Thai (035' + ') ' 'Turkish (036' + ') ' 'Ukranian (020' + ') ' 'Urdu (037' + ') ' 'Vietnamese (021' + ')') end object City: TEdit Left = 88 Top = 256 Width = 153 Height = 22 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 60 ParentFont = False TabOrder = 13 OnKeyDown = OnKeyDown OnKeyPress = CharEntryKeyPress end object HPhone: TEdit Left = 328 Top = 208 Width = 153 Height = 22 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 30 ParentFont = False TabOrder = 15 OnKeyDown = OnKeyDown OnKeyPress = PhoneKeyPress end object OPhone: TEdit Left = 328 Top = 232 Width = 153 Height = 22 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 30 ParentFont = False TabOrder = 16 OnKeyDown = OnKeyDown OnKeyPress = PhoneKeyPress end object MPhone: TEdit Left = 328 Top = 256 Width = 153 Height = 22 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 30 ParentFont = False TabOrder = 17 OnKeyDown = OnKeyDown OnKeyPress = PhoneKeyPress end object HPHONET: TStaticText Left = 256 Top = 211 Width = 64 Height = 18 Caption = 'Home Phone' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 29 end object OPHONET: TStaticText Left = 256 Top = 235 Width = 67 Height = 18 Caption = 'Office Phone' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 30 end object MPHONET: TStaticText Left = 256 Top = 259 Width = 67 Height = 18 Caption = 'Mobile Office' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 31 end object PEMAILT: TStaticText Left = 5 Top = 123 Width = 74 Height = 18 Caption = 'Primary Email *' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 32 end object PEmail: TEdit Left = 88 Top = 120 Width = 153 Height = 22 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 60 ParentFont = False TabOrder = 3 OnKeyDown = OnKeyDown OnKeyPress = EmailKeyPress end object TZT: TStaticText Left = 248 Top = 149 Width = 58 Height = 18 Caption = 'TimeZone *' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 33 end object TZ: TComboBox Left = 248 Top = 168 Width = 241 Height = 21 Style = csDropDownList DropDownCount = 20 ItemHeight = 13 TabOrder = 10 Items.Strings = ( 'TimeZone' 'Midway Island; Samoa -11 ' 'US: Hawaii-Aleutian Time (incl. DST) -10 ' 'US: Alaska Time (incl. Daylight Savings) -9 ' 'US/Can: Pacific Time (incl. DST) -8 ' 'US/Can: Mountain Time (incl. DST) -7 ' 'US: Mountain Time - Arizona -7 ' 'Canada: Central Time - Saskatchewan -6 ' 'US/Can: Central Time (incl. DST) -6 ' 'SA: Brazil - West -5 ' 'US/Can: Eastern Time (incl. DST) -5 ' 'Canada: Atlantic Time (incl. DST) -4 ' 'SA: Brazil - Central -4 ' 'Canada: Newfoundland Time -4 ' 'SA: Brazil - Rio de Janeiro -3 ' 'Cape Verde -2 ' 'Coordinated Universal Time (GMT) 0 ' 'Western European Time (incl. DST) 0 ' 'Central European Time (incl. DST) 1 ' 'Eastern European Time (incl. DST) 2 ' 'Egypt (incl. Daylight Savings) 2 ' 'Russia Zone 1 Kalengrad 2 ' 'South Africa; Turkey; Israel; Greece 2 ' 'Iraq; Quatar; Kuwait; Kenya; Uganda 3 ' 'Iran 4 ' 'Russia Zone 2 Moscow; St. Petersburg 4 ' 'Russia Zone 3 Samara; Izhevsk 4 ' 'UAE; Oman; Azerbaijan 4 ' 'Pakistan; Tajikistan; Uzebekistan 5 ' 'Russia Zone 4 Yekaterinburg; Perm 5 ' 'India; Nepal 6 ' 'Russia Zone 5 Novosibirsk; Omsk 6 ' 'Sri Lanka; Kazahkstan; Bangladesh 6 ' 'Christmas Island Time 7 ' 'Russia Zone 6 Krasnoyarsk; Kemerovo 7 ' 'Thailand; Vietnam; Laos; Indonesia 7 ' 'Australian Western Standard Time 8 ' 'China; Sinapore; Macau; Malaysia 8 ' 'Russia Zone 7 Irkutsk; Ulan-Ude 8 ' 'Japan; Korea; East Indonesia 9 ' 'Russia Zone 8 Chita; Yakutsk 9 ' 'Australian Central Time (incl. DST) 10 ' 'Australian Eastern Time (incl. DST) 10 ' 'Australian Eastern Time (Tasmania DST) 10 ' 'Russia Zone 9 Vladivostok; Khabarovsk 10 ' 'Russia Zone 10 Magadan; Kolyma 11 ' 'New Zealand; Fiji (incl. Daylight Savings) 12 ' 'Russia Zone 11 Anadyr; Severo Kurilsk 12 ') end object ABOUTT: TStaticText Left = 5 Top = 315 Width = 50 Height = 18 Caption = 'About Me' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 34 end object About: TMemo Left = 88 Top = 317 Width = 241 Height = 68 MaxLength = 512 ScrollBars = ssVertical TabOrder = 18 OnKeyDown = OnKeyDown OnKeyPress = CharEntryKeyPress end object BAccept: TButton Left = 384 Top = 320 Width = 99 Height = 20 Caption = 'Accept' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 19 OnClick = BAcceptClick end object BClose: TButton Left = 384 Top = 368 Width = 99 Height = 20 Caption = 'Close' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 21 OnClick = BCloseClick end object LNAMET: TStaticText Left = 5 Top = 99 Width = 55 Height = 18 Caption = 'Last Name' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 35 end object EEmail: TEdit Left = 88 Top = 144 Width = 153 Height = 22 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 60 ParentFont = False TabOrder = 4 OnKeyDown = OnKeyDown OnKeyPress = EmailKeyPress end object EEMAILT: TStaticText Left = 5 Top = 147 Width = 70 Height = 18 Caption = 'External Email' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 36 end object ESMS: TEdit Left = 88 Top = 168 Width = 153 Height = 22 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 60 ParentFont = False TabOrder = 5 OnKeyDown = OnKeyDown OnKeyPress = EmailKeyPress end object ESMST: TStaticText Left = 5 Top = 171 Width = 68 Height = 18 Caption = 'External SMS' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 37 end object BPW: TButton Left = 384 Top = 344 Width = 99 Height = 20 Caption = 'Change Password' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 20 OnClick = BPWClick end object StaticText1: TStaticText Left = 384 Top = 15 Width = 85 Height = 23 Alignment = taRightJustify Caption = '...loading...' Color = clWhite Font.Charset = EASTEUROPE_CHARSET Font.Color = clMaroon Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False TabOrder = 38 end object SP: TComboBox Left = 88 Top = 232 Width = 153 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 12 Text = 'State-Province' OnChange = ControlBoxChange Items.Strings = ( 'State-Province' 'Alabama' 'Alaska' 'Arizona' 'Arkansas' 'California' 'Colorado' 'Connecticut' 'Delaware' 'Florida' 'Georgia' 'Hawaii' 'Idaho' 'Illinois' 'Indiana' 'Iowa' 'Kansas' 'Kentucky' 'Louisiana' 'Maine' 'Maryland' 'Massachusetts' 'Michigan' 'Minnesota' 'Mississippi' 'Missouri' 'Montana' 'Nebraska' 'Nevada' 'New Hampshire' 'New Jersey' 'New Mexico' 'New York' 'North Carolina' 'North Dakota' 'Ohio' 'Oklahoma' 'Oregon' 'Pennsylvania' 'Rhode Island' 'South Carolina' 'South Dakota' 'Tennessee' 'Texas' 'Utah' 'Vermont' 'Virginia' 'Washington' 'West Virginia' 'Wisconsin' 'Wyoming' 'Alberta' 'British Columbia' 'Manitoba' 'New Brunswick' 'Newfoundland' 'Nova Scotia' 'Nunavut' 'North West Territories' 'Ontario' 'Prince Edward Island' 'Quebec' 'Saskatchewan' 'Yukon Territory') end object NName: TEdit Left = 88 Top = 48 Width = 153 Height = 22 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 32 ParentFont = False TabOrder = 0 OnKeyDown = OnKeyDown OnKeyPress = CharEntryKeyPress end object NNAMET: TStaticText Left = 5 Top = 51 Width = 51 Height = 18 Caption = 'NickName' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 39 end object DOBDAY: TStaticText Left = 416 Top = 100 Width = 55 Height = 17 Alignment = taRightJustify Caption = 'DOBDAY' Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 40 Visible = False end object HPAGET: TStaticText Left = 256 Top = 283 Width = 58 Height = 18 Caption = 'Home Page' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 41 end object HPage: TEdit Left = 328 Top = 280 Width = 153 Height = 22 Cursor = crHandPoint Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsUnderline] MaxLength = 60 ParentFont = False TabOrder = 42 OnDblClick = HPageClick OnKeyDown = OnKeyDown OnKeyPress = EmailKeyPress end object Sign: TStaticText Left = 322 Top = 100 Width = 29 Height = 17 Cursor = crHandPoint Hint = 'Show Horoscope' Caption = 'Sign' Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 43 Visible = False OnClick = SignClick end object Timer1: TTimer Enabled = False OnTimer = Timer1Timer Left = 16 Top = 352 end object ClientSocket1: TClientSocket Active = False ClientType = ctNonBlocking Port = 0 OnConnect = ClientSocket1Connect OnRead = ClientSocket1Read OnError = ClientSocket1Error Left = 16 Top = 328 end end