function LoadUrl(const aUrl:string; var HtmlCode:string):Boolean;
var
  fIdHttp:TidHTTP;
begin
  fIdHttp := TIdHTTP.Create(nil);
  try
    try
      fIdHTTP.Compressor := TIdCompressorZLib.Create(fIdHTTP);
      fIdHttp.Request.UserAgent:=GetRandomUserAgent;
      fIdHttp.ConnectTimeout:=30000;
      fIdHttp.ReadTimeout:=30000;
      fIdHttp.HandleRedirects:=True;
      fIdHttp.Request.Connection :='keep-alive';
      HtmlCode:=fIdHttp.Get(aUrl);
      Result:=True;
    except
      on E:Exception do
      begin
        HtmlCode:=aUrl+#32+#32+#32+E.Message;
        Result:=False;
      end;
    end;
  finally
    FreeAndNil(fIdHttp);
  end;
end;