* (runcommand), fix for corruption of outputstring if command fails with

   an exception. Patch by Ludo #22328

git-svn-id: trunk@21739 -

packages/fcl-process/src/process.pp

@@ -465,8 +465,8 @@ begin
   try
     try
     p.Options :=  [poUsePipes];
-    p.Execute;
     bytesread:=0;
+    p.Execute;
     while p.Running do
       begin          
         Setlength(outputstring,BytesRead + READ_BYTES);