procedure AllocateDebugConsole;
var
  StdOutHandle, StdErrHandle, StdInHandle: THandle;
  Success: Boolean;
begin
  // 尝试分配一个控制台窗口
  if AllocConsole then
  begin
    // AllocConsole 成功后，进程的标准句柄已指向新控制台
    // 现在需要让 Delphi 的标准 TextFile 变量使用这些新句柄
 
    try
      // 重新打开 ErrOutput，使其关联到新的 STD_ERROR_HANDLE
      Rewrite(ErrOutput); // <--- 使用 Rewrite
      WriteLn(ErrOutput, 'ErrOutput redirected.');
 
      // 重新打开 Output，使其关联到新的 STD_OUTPUT_HANDLE
      Rewrite(Output);    // <--- 使用 Rewrite
      WriteLn(Output, 'Output redirected.');
 
      // 重新打开 Input，使其关联到新的 STD_INPUT_HANDLE
      Reset(Input);       // <--- 使用 Reset
      // WriteLn(Output, 'Input redirected.'); // 不容易测试Input，先注释掉
 
      // 可选：设置控制台标题
      SetConsoleTitle('Debug Output Console');
      Flush(ErrOutput);
      Flush(Output);
    except
      on E: Exception do
      begin
        // 如果 Rewrite/Reset 失败 (虽然不太可能在成功 AllocConsole 后立即失败)
        OutputDebugString(PChar('Failed to redirect standard handles: ' + E.Message));
      end;
    end;
  end
  else
  begin
    // 分配控制台失败
    // OutputDebugString(PChar('Failed to allocate console: ' + SysErrorMessage(GetLastError)));
  end;
end;
 
用法
 
begin
  AllocateDebugConsole; <----add at here
  Application.Initialize;
  Application.CreateForm(TFormMain, FormMain);
  Application.Run;
end.