Including setup and activate overloads to skip Python version from params and use the current set up

Former-commit-id: 4efeaacfea6a09f3d0efdc32b1b5f91e350e3177 [formerly 1a5e15f96f08c599983a103fe34f3f18cafc2f2d] [formerly 3af53c9dc2d1a325c61649bfa5809324565e0735 [formerly 4758d1991f25221966123cab0a7983c96b0e8771]]
Former-commit-id: 9f95287d9df982d0ca18ee8f9e92985662b9c7a1 [formerly 6a27cf7e93021977a3e3abc152944ba2f9e8104e]
Former-commit-id: fe514a7748d84dcd23723312828a93c333ea1707
Former-commit-id: 500d9d2

Author: lmbelo

src/PyEnvironment.pas

@@ -96,10 +96,10 @@   TPyCustomEnvironment = class(TComponent, IEnvironmentNotifier<TPyCustomEnviron
     constructor Create(AOwner: TComponent); override;
     destructor Destroy(); override;
 
-    procedure Setup(APythonVersion: string);
-    function SetupAsync(APythonVersion: string): ITask;
+    procedure Setup(APythonVersion: string = '');
+    function SetupAsync(APythonVersion: string = ''): ITask;
 
-    function Activate(APythonVersion: string): boolean;
+    function Activate(APythonVersion: string = ''): boolean;
     procedure Deactivate();
   public
     property Distributions: TPyDistributionCollection read FDistributions write SetEnvironments;
@@ -131,8 +131,8 @@   TPyEnvironment = class(TPyCustomEnvironment)
 implementation
 
 uses
+  System.IOUtils, System.StrUtils,
   TypInfo,
-  System.IOUtils,
   PyEnvironment.Path;
 
 { TPyCustomEnvironment }
@@ -173,19 +173,22 @@ procedure TPyCustomEnvironment.Notification(AComponent: TComponent;
 
 procedure TPyCustomEnvironment.Setup(APythonVersion: string);
 begin
-  InternalSetup(APythonVersion);
+  InternalSetup(
+    IfThen(APythonVersion.IsEmpty(), PythonVersion, APythonVersion));
 end;
 
 function TPyCustomEnvironment.SetupAsync(APythonVersion: string): ITask;
 begin
   Result := TTask.Run(procedure() begin
-    InternalSetup(APythonVersion);
+    InternalSetup(
+      IfThen(APythonVersion.IsEmpty(), PythonVersion, APythonVersion));
   end);
 end;
 
 function TPyCustomEnvironment.Activate(APythonVersion: string): boolean;
 begin
-  Result := InternalActivate(APythonVersion);
+  Result := InternalActivate(
+    IfThen(APythonVersion.IsEmpty(), PythonVersion, APythonVersion));
 end;
 
 procedure TPyCustomEnvironment.Deactivate;