Получение данных из консольного приложения

    if CreateProcess(nil, PChar(sBufferOut), nil,nil, true, 0, nil,
        Pointer(sWorkDir), sui, pi) then
    begin  // При успешном создании идем дальше
      hProcess := pi.hProcess;
      CloseHandle(hWriteOut);
      CloseHandle(hReadIn);
 
      self.ReturnValue := RT_ERR_OK;
      SetLength(sBufferOut,l_BUFFER_SIZE+1);
      b1 := true;
      // ========= внутри ждем команды =============================
      while not self.Terminated do
      begin
        FillChar(sBufferOut[1],l_BUFFER_SIZE+1,0);
        if b1 then
        begin
          b1 := ReadFile(hReadOut, sBufferOut[1], l_BUFFER_SIZE, bReadOut, nil);
        end;
        if b1 then
        begin
          if Assigned(zOnOutput) then
            zOnOutput(self, Copy(sBufferOut,1,bReadOut));
        end;
        if (not b1) then
          break;
      end;
      // ======================================
      if not GetExitCodeProcess(pi.hProcess, Cardinal(lExitCodeProcess)) then
         lExitCodeProcess := -1;
      CloseHandle(pi.hThread);
      CloseHandle(pi.hProcess);
    end
    else
    begin
      self.ReturnValue := RT_ERR_START;
      CloseHandle(hWriteOut);
      CloseHandle(hReadIn);
    end;

  if zRedirect<>nil then
  begin
  //=============================
    s := edTelnet+Edit_IP.Text+#13#10;  // здесь подключаюсь по айпи
    if rgCharset.ItemIndex=1 then
      CharToOem(@s[1],@s[1]);
    zRedirect.WriteData(s);
    edInput := '';
    sleep(3000);
  //=============================
    s := 'LOGIN'+#13#10;             
    if rgCharset.ItemIndex=1 then
        CharToOem(@s[1],@s[1]);
      zRedirect.WriteData(s);
      edInput := '';
      sleep(2000);
  //=============================
    s := 'PASSWORD'+#13#10;
    if rgCharset.ItemIndex=1 then
        CharToOem(@s[1],@s[1]);
      zRedirect.WriteData(s);
      edInput := '';
  //=============================
  end;