Domain név alapján ország név meghatározása

function GetDomainName(domain: string):string;

  s:='';
  p:=Length(domain);
  while p>0 do begin
    if domain[p]<>'.' then s:=LowerCase(domain[p])+s else p:=1;
    dec(p);
  end;

  p:=1;
  result:='';
  while (p<=NONAMES) and (result='') do begin
    if DomainNames[p,0]=s then result:=DomainNames[p,1];
    inc(p);
  end;