countries: TStringlist;
countries := TStringlist.Create;
with countries do
begin
add('ac,Ascension Island');
add('ad,Andorra');
add('ae,United Arab Emirates');
add('af,Afghanistan');
add('ag,Antigua and Barbuda');
add('ai,Anguilla');
add('al,Albania');
add('am,Armenia');
add('an,Netherlands Antilles');
add('ao,Angola');
add('aq,Antarctica');
add('ar,Argentina');
add('as,American Samoa');
add('at,Austria');
add('au,Australia');
add('aw,Aruba');
add('ax,Aland Islands');
add('az,Azerbaijan');
add('ba,Bosnia-Herzegovina');
add('bb,Barbados');
add('bd,Bangladesh');
add('be,Belgium');
add('bf,Burkina Faso');
add('bg,Bulgaria');
add('bh,Bahrain');
add('bi,Burundi');
add('bj,Benin');
add('bm,Bermuda');
add('bn,Brunei Darussalam');
add('bo,Bolivia');
add('br,Brazil');
add('bs,Bahamas');
add('bt,Bhutan');
add('bv,Bouvet Island');
add('bw,Botswana');
add('by,Belarus');
add('bz,Belize');
add('ca,Canada');
add('cc,Cocos (Keeling) Islands');
add('cd,Democratic Republic of Congo');
add('cf,Central African Republic');
add('cg,Republic of Congo');
add('ch,Switzerland');
add('ci,Cote d`Ivoire');
add('ck,Cook Islands');
add('cl,Chile');
add('cm,Cameroon');
add('cn,China');
add('co,Colombia');
add('cr,Costa Rica');
add('cs,Serbia - Montenegro');
add('cu,Cuba');
add('cv,Cape Verde');
add('cx,Christmas Island');
add('cy,Cyprus');
add('cz,Czech Republic');
add('de,Germany');
add('dj,Djibouti');
add('dk,Denmark');
add('dm,Dominica');
add('do,Dominican Republic');
add('dz,Algeria');
add('ec,Ecuador');
add('ee,Estonia');
add('eg,Egypt');
add('eh,Western Sahara');
add('er,Eritrea');
add('es,Spain');
add('et,Ethiopia');
add('eu,European Union');
add('fi,Finland');
add('fj,Fiji');
add('fk,Falkland Islands (British Territories)');
add('fm,Federal State of Micronesia');
add('fo,Faroe Islands');
add('fr,France');
add('ga,Gabon');
// add('gb,Great Britain');
add('gd,Grenada');
add('ge,Georgia');
add('gf,French Guiana');
add('gg,Guernsey');
add('gh,Ghana');
add('gi,Gibraltar');
add('gl,Greenland');
add('gm,Gambia');
add('gn,Guinea');
add('gp,Guadeloupe');
add('gq,Equatorial Guinea');
add('gr,Greece');
add('gs,South Georgia and the South Sandwich Islands');
add('gt,Guatemala');
add('gu,Guam');
add('gw,Guinea-Bissau');
add('gy,Guyana');
add('hk,Hong Kong');
add('hm,Heard and McDonald Islands');
add('hn,Honduras');
add('hr,Croatia-Hrvatska');
add('ht,Haiti');
add('hu,Hungary');
add('id,Indonesia');
add('ie,Ireland');
add('il,Israel');
add('im,Isle of Man');
add('in,India');
add('io,British Indian Ocean Territory');
add('iq,Iraq');
add('ir,Islamic Republic of Iran');
add('is,Iceland');
add('it,Italy');
add('je,Jersey');
add('jm,Jamaica');
add('jo,Jordan');
add('jp,Japan');
add('ke,Kenya');
add('kg,Kyrgyzstan');
add('kh,Cambodia');
add('ki,Kiribati');
add('km,Comoros');
add('kn,Saint Kitts and Nevis');
add('kp,Democratic Peoples Republic of Korea');
add('kr,Republic of Korea');
add('kw,Kuwait');
add('ky,Cayman Islands');
add('kz,Kazakhstan');
add('la,Peoples Democratic Republic of Lao');
add('lb,Lebanon');
add('lc,Saint Lucia');
add('li,Liechtenstein');
add('lk,Sri Lanka');
add('lr,Liberia');
add('ls,Lesotho');
add('lt,Lithuania');
add('lu,Luxembourg');
add('lv,Latvia');
add('ly,Libyan Arab Jamahiriya');
add('ma,Morocco');
add('mc,Monaco');
add('md,Republic of Moldava');
add('mg,Madagascar');
add('mh,Marshall Islands');
add('mk,Former Yugoslav Republic of Macedonia');
add('ml,Mali');
add('mm,Myanmar');
add('mn,Mongolia');
add('mo,Macau');
add('mp,Northern Mariana Islands');
add('mq,Martinique');
add('mr,Mauritania');
add('ms,Montserrat');
add('mt,Malta');
add('mu,Mauritius');
add('mv,Maldives');
add('mw,Malawi');
add('mx,Mexico');
add('my,Malaysia');
add('mz,Mozambique');
add('na,Namibia');
add('nc,New Caledonia');
add('ne,Niger');
add('nf,Norfolk Island');
add('ng,Nigeria');
add('ni,Nicaragua');
add('nl,Netherlands');
add('no,Norway');
add('np,Nepal');
add('nr,Nauru');
add('nu,Niue');
add('nz,New Zealand');
add('om,Oman');
add('pa,Panama');
add('pe,Peru');
add('pf,French Polynesia');
add('pg,Papua New Guinea');
add('ph,Philippines');
add('pk,Pakistan');
add('pl,Poland');
add('pm,Saint Pierre and Miquelon');
add('pn,Pitcairn Island');
add('pr,Puerto Rico');
add('ps,Palestinian Territories');
add('pt,Portugal');
add('pw,Palau');
add('py,Paraguay');
add('qa,Qatar');
add('re,Reunion Island');
add('ro,Romania');
add('ru,Russian Federation');
add('rw,Rwanda');
add('sa,Saudi Arabia');
add('sb,Solomon Islands');
add('sc,Seychelles');
add('sd,Sudan');
add('se,Sweden');
add('sg,Singapore');
add('sh,Saint Helena');
add('si,Slovenia');
add('sj,Svalbard and Jan Mayen Islands');
add('sk,Slovak Republic');
add('sl,Sierra Leone');
add('sm,San Marino');
add('sn,Senegal');
add('so,Somalia');
add('sr,Suriname');
add('st,Sao Tome and Principe');
add('sv,El Salvador');
add('sy,Syrian Arab Republic');
add('sz,Swaziland');
add('tc,Turks and Caicos Islands');
add('td,Chad');
add('tf,French Southern Territories');
add('tg,Togo');
add('th,Thailand');
add('tj,Tajikistan');
add('tk,Tokelau');
add('tl,Timor-Leste');
add('tm,Turkmenistan');
add('tn,Tunisia');
add('to,Tonga');
add('tp,East Timor');
add('tr,Turkey');
add('tt,Trinidad and Tobago');
add('tv,Tuvalu');
add('tw,Taiwan');
add('tz,Tanzania');
add('ua,Ukraine');
add('ug,Uganda');
add('uk,United Kingdom');
add('um,United States (m) Outlying Islands');
add('us,United States');
add('uy,Uruguay');
add('uz,Uzbekistan');
add('va,Vatican City');
add('vc,Saint Vincent and the Grenadines');
add('ve,Venezuela');
add('vg,British Virgin Islands');
add('vi,U.S. Virgin Islands');
add('vn,Vietnam');
add('vu,Vanuatu');
add('wf,Wallis and Futuna Islands');
add('ws,Samoa');
add('ye,Yemen');
add('yt,Mayotte');
add('yu,Yugoslavia');
add('za,South Africa');
add('zm,Zambia');
add('zw,Zimbabwe')
end;//with