Как переназначить вывод в файл для консольной программы

Code:

var

StartupInfo: TStartupInfo;

ProcessInformation: TProcessInformation;

begin

GetStartupInfo(StartupInfo);

with StartupInfo do

begin

   wShowWindow := SW_HIDE; //не показывать окно

   dwFlags := STARTF_USESHOWWINDOW;

end;

// для примера будем запускать [c:\program files\Borland\Delphi5\Bin]grep.exe с ключом '?'

Win32Check(CreateProcess(nil, 'command.com /c  grep.exe ? > MyStdOut.txt',

   nil, nil, FALSE, CREATE_NEW_CONSOLE, nil, nil, StartupInfo, ProcessInformation));

// ждем пока наш процесс отработает

WaitForSingleObject(ProcInfo.hProcess, INFINITE);

Win32Check(CloseHandle(ProcInfo.hProcess);

end;