Having the checkpipe option to false, it was breaking the routine

Former-commit-id: 27183f18fecdaed2e7366a81fd3fe84a6f410289 [formerly 6e30b05d330d4108f8166c03736ac7fa37eaeda6] [formerly 3532499 [formerly 3532499 [formerly 5e9beda]]]
Former-commit-id: ed6a580046caf3f10f89a645908ac5fb2cb687c4 [formerly 27938252c2ed7cca69d1274619c34891d8632077]
Former-commit-id: b41a3bbb6a386a65b0abd3df7a8af2615cfccd29
Former-commit-id: e187cc9

Author: lmbelo

src/Tools/PyTools.ExecCmd.Win.pas

@@ -181,6 +181,7 @@ procedure TExecCmd.Redirect(out AReader: TReader; out AWriter: TWriter);
 
     while GetIsAlive() and Result.IsEmpty() do begin
       Result := Result + PeekMessage();
+      Sleep(100);
     end;
 
     if not Result.IsEmpty() then
@@ -290,15 +291,15 @@ function TExecCmd.PeekMessage(const ACheckPipe: boolean): string;
 begin
   Result := String.Empty;
 
-  if ACheckPipe and not PeekNamedPipe(FStdOutPipeRead, nil, 0, nil, @LBytesRead, nil) then
-    Exit;
+  if ACheckPipe then
+    if not PeekNamedPipe(FStdOutPipeRead, nil, 0, nil, @LBytesRead, nil)
+      or (LBytesRead = 0) then
+        Exit;
 
-  if (LBytesRead > 0) then
-    if ReadFile(FStdOutPipeRead, LBuffer, BUFFSIZE, LBytesRead, nil) then
-      if (LBytesRead > 0) then begin
-        LBuffer[LBytesRead] := #0;
-        Result := Result + String(LBuffer);
-      end;
+  if ReadFile(FStdOutPipeRead, LBuffer, BUFFSIZE, LBytesRead, nil) then
+    if (LBytesRead > 0) then begin
+      SetString(Result, LBuffer, LBytesRead);
+    end;
 end;
 
 end.