diff --git a/lib/delphi/test/TestClient.pas b/lib/delphi/test/TestClient.pas
index 0fa43b0..7b603a3 100644
--- a/lib/delphi/test/TestClient.pas
+++ b/lib/delphi/test/TestClient.pas
@@ -1339,8 +1339,8 @@
     trns_Http: begin
       Console.WriteLine('Using HTTPClient');
       if FSetup.useSSL
-      then sUrl := 'http://'
-      else sUrl := 'https://';
+      then sUrl := 'https://'
+      else sUrl := 'http://';
       sUrl := sUrl + FSetup.host;
       case FSetup.port of
         80  : if FSetup.useSSL then sUrl := sUrl + ':'+ IntToStr(FSetup.port);