delphi - Delphiでバイナリデータをstdoutに書き込む方法は?

Question

Delphi コンソール アプリケーションから stdout に書き込むにはどうすればよいですか?

これが私が試したことです。ディスクからファイルを読み取り、コンソールの標準出力に出力するために、見つけた情報に従ってこの簡単なテストアプリを装備しました。

program ConsoleOut;
{$APPTYPE CONSOLE}
uses
  Classes, Windows, SysUtils;

var
  S: TMemoryStream;
  OutputStream: THandleStream;
  ss: string;
  Buffer: PByte;
  i: Integer;
begin
  S := TMemoryStream.Create;
  S.LoadFromFile('1.jpg');
  S.Seek(0, soFromBeginning);

  //Am I right that from now on writing to OutputStream will write to stdout?
  OutputStream := THandleStream.Create(GetStdHandle(STD_OUTPUT_HANDLE));

  GetMem(Buffer, S.Size);
    S.ReadBuffer(Buffer^, S.Size);
    i := OutputStream.Write(Buffer^, S.Size); //i = 0 here for some reason
  FreeMem(Buffer, S.Size);

  Writeln(i, ' byte written to output');
  Readln(ss); //Don't exit app to read previous line
  S.Free;
end.

しかし、何らかの理由で失敗します。stdout への適切な書き込み方法を教えてください。