Just another update

Task/HTTPS/Delphi/https.delphi

@@ -7,17 +7,14 @@ uses IdHttp, IdSSLOpenSSL;
 var
   s: string;
   lHTTP: TIdHTTP;
-  lIOHandler: TIdSSLIOHandlerSocketOpenSSL;
 begin
   lHTTP := TIdHTTP.Create(nil);
-  lIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
   try
-    lHTTP.IOHandler := lIOHandler;
+    lHTTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(lHTTP);
     lHTTP.HandleRedirects := True;
     s := lHTTP.Get('https://sourceforge.net/');
     Writeln(s);
   finally
     lHTTP.Free;
-    lIOHandler.Free;
   end;
 end.

Task/HTTPS/Maple/https.maple

@@ -0,0 +1 @@
+content := URL:-Get( "https://www.google.ca/" );