procedure LoadUrl(const aUrl:string; var IsPageLoaded:Boolean; var HtmlCode:string);
var
  ServerCharset:string;
  Buffer: TBytes;
  fIdHttp:TidHTTP;                    
  fSSL:TIdSSLIOHandlerSocketOpenSSL; 
  fStream: TMemoryStream;             
begin
  fIdHttp := TIdHTTP.Create(nil);              
  fSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);    
  //fSSL.SSLOptions.Method:=sslvTLSv1;
  fStream := TMemoryStream.Create;
  try
    try
      fIdHttp.IOHandler:=fSSL;  
      fIdHttp.Request.UserAgent:=GetRandomUserAgent;
      fIdHttp.ConnectTimeout:=30000;
      fIdHttp.ReadTimeout:=30000;
      fIdHttp.HandleRedirects:=True;
      fIdHttp.Request.Connection :='keep-alive';

      fIdHttp.HTTPOptions:=fIdHttp.HTTPOptions+[hoNoParseMetaHTTPEquiv];
      fIdHttp.Get(aUrl,fStream);
      ServerCharset:=AnsiLowerCase(fIdHttp.Response.CharSet); 

      fStream.Position:=0;         
      SetLength(Buffer,fStream.Size);
      fStream.Read(Buffer[0],Length(Buffer));

      HtmlCode:=(CodePageConvert(Buffer, ServerCharset));
      IsPageLoaded:=True;
    except
      on E:Exception do
      begin
        HtmlCode:=aUrl+#32+#32+#32+E.Message;
        IsPageLoaded:=False;
      end;
    end;
  finally
    FreeAndNil(fIdHttp);
    FreeAndNil(fSSl);
    FreeAndNil(fStream);
  end;
end;