var
 https: TIdHTTP;
 ssl: TIdSSLIOHandlerSocketOpenSSL;
 sock: TIdSocksInfo;
begin
 https:=TIdHTTP.Create(nil);
 ssl := TIdSSLIOHandlerSocketOpenSSL.Create(https);
 ssl.SSLOptions.CipherList := 'ALL';
 ssl.PassThrough := False;
 sock := TIdSocksInfo.Create;
 sock.authentication := sanoauthentication;
 sock.version := svSocks4;
 sock.host := '201.222.29.86';
 sock.port := 4145;
 ssl.transparentproxy := sock;
 https.IOHandler := ssl;
 https.HandleRedirects:=true;
 try
   https.get('https://www.facebook.com/');
 except

 end;
 FreeAndNil(sock);
 FreeAndNil(ssl);
 FreeAndNil(https);