Need help with launching console app.

Hi

I'm launching a console app using this code:

procedure TmainForm.ExecWithPipe(FName : PChar; OutPut : TStrings);
var
  StartupInfo : TStartupInfo;
  ProcessInfo : TProcessInformation;
  Buffer : array[0..255] of char;
  Wynik : string;
  bRead  : cardinal;
  licznik : integer;
  hRead, hWrite : THandle;
  saAttr : TSECURITYATTRIBUTES;
  OutSt : TMemoryStream;

begin
  // Set the bInheritHandle flag so pipe handles are inherited.
  saAttr.nLength := sizeof(TSECURITYATTRIBUTES);
  saAttr.bInheritHandle := true;
  saAttr.lpSecurityDescriptor := nil;
  if not(CreatePipe(hRead, hWrite, @saAttr, 0)) then
    begin
      ShowMessage('Can not create the pipe!');
      Exit;
    end;
  if not(AllocConsole) then
    begin
      ShowMessage('Can not allocate console for the child!');
      Exit;
    end;

  try
    FillChar(StartupInfo,Sizeof(StartupInfo),#0);
    StartupInfo.cb := Sizeof(StartupInfo);
    StartupInfo.dwFlags := STARTF_USESTDHANDLES;
    StartupInfo.wShowWindow := SW_HIDE; //SW_SHOWMINIMIZED;
    //Associate our handles with our child process
    StartupInfo.hStdInput := GetStdHandle(STD_INPUT_HANDLE);
    StartupInfo.hStdOutput:= hWrite; //we catch output
    StartupInfo.hStdError := hWrite; //and also error
    if not(CreateProcess(nil, FName, nil, nil, true, CREATE_NO_WINDOW or HIGH_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo)) then
      ShowMessage('Can not create process')
    else
      begin
        Sleep(300);
        //loop until terminated
        while (WaitforSingleObject(ProcessInfo.hProcess, 0) <> WAIT_OBJECT_0) do
          begin
            licznik := 0;
            repeat
              Application.ProcessMessages;
              Sleep(10);
              licznik := licznik + 10;
            until (licznik >= 1000);
            //now read all the output of the child and put it to a memo
            OutSt := TMemoryStream.Create;
            repeat
              if ReadFile(hRead, Buffer, 80, bRead, nil) then
                OutSt.WriteBuffer(Buffer, bRead)
              else
                Break;
            until bRead <> 80;
            OutSt.Seek(0,0); //seek to begining
            //read memo from stream
            SetLength(Wynik, OutSt.Size);
            OutSt.ReadBuffer(PChar(Wynik)^, OutSt.Size);
            OutPut.Clear;
            OutPut.Add(Wynik);
//            OutPut.LoadFromStream(OutSt);
            Sleep(100);
            OutSt.Free;
          end;
      end;
  finally
    //close read and write handles of our pipe
    Sleep(300);
    CloseHandle(hRead);
    CloseHandle(hWrite);
    if not(FreeConsole) then MessageBeep(0);
  end;
end;

it works, but I need to hide the console window (the line StartupInfo.wShowWindow := SW_HIDE; doesn't do the trick); and also while i'm using var wynik to pass the results the console window sometimes doesn't close properly (it works fine when i use the OutPut.LoadFromStream - the thing is I need to copy the results to a string for later use); Can anyone help ?