function IsThirdPartyWorld(const Country: string): Boolean;
begin
if (Country = ‘USA’) or
(Country = ‘AU’) or
(Country = ‘AT’) or
(Country = ‘BE’) or
(Country = ‘CA’) or
(Country = ‘DK’) or
(Country = ‘FI’) or
(Country = ‘FR’) or
(Country = ‘DE’) or
(Country = ‘IS’) or
(Country = ‘IE’) or
(Country = ‘IT’) or
(Country = ‘JP’) or
(Country = ‘NL’) or
(Country = ‘NZ’) or
(Country = ‘NO’) or
(Country = ‘PT’) or
(Country = ‘ES’) or
(Country = ‘SE’) or
(Country = ‘CH’) or
(Country = ‘US’) or
(Country = ‘UK’) then
Result := False
else
Result := True;
end;
Tags: delphi