Further fixes to Linux target. It should now work well.

Author: pyscripter

Source/PythonEngine.pas

@@ -4216,7 +4216,7 @@ procedure TPythonEngine.Initialize;
 
   gPythonEngine := Self;
   CheckRegistry;
-  if Assigned(Py_SetProgramName) and (ProgramName <> '') then
+  if Assigned(Py_SetProgramName) and (Length(FProgramName) > 0) then
     Py_SetProgramName(PWCharT(FProgramName));
   AssignPyFlags;
   if Length(FPythonHome) > 0 then
@@ -4468,7 +4468,10 @@ procedure TPythonEngine.SetPyFlags(const Value: TPythonFlags);
 function  TPythonEngine.GetPythonHome: UnicodeString;
 begin
 {$IFDEF POSIX}
-  Result := UCS4StringToUnicodeString(FPythonHome);
+  if Length(FPythonHome) = 0 then
+    Result := ''
+  else
+    Result := UCS4StringToUnicodeString(FPythonHome);
 {$ELSE}
   Result := FPythonHome;
 {$ENDIF}
@@ -4477,7 +4480,10 @@ function  TPythonEngine.GetPythonHome: UnicodeString;
 function  TPythonEngine.GetProgramName: UnicodeString;
 begin
 {$IFDEF POSIX}
-  Result := UCS4StringToUnicodeString(FProgramName);
+  if Length(FProgramName) = 0 then
+    Result := ''
+  else
+    Result := UCS4StringToUnicodeString(FProgramName);
 {$ELSE}
   Result := FProgramName;
 {$ENDIF}