Lazarus32- Execute command and capture the pipe

Program Project1;
Uses
classes,
process;


{$mode objfpc}{$H+}
{$apptype console} // to read debug output on windows
var s:ansistring='';

begin
runcommand('c:\windows\system32\upx.exe',['--help'],s);
writeln(s);
writeln('Pree return to end . . .');
With TStringlist.Create do
 Begin clear;
        settext(pchar(s));
        savetofile('b:\a.txt');
        free;
  End;
readln;
end.