function Ping(Host: String):string;
Begin
  try
   idhttp.Get(host);
   result:='online';
  except
   on EIdFileNotFound do
   result:='offline';
  end;
end;