Ошибка загрузки в RichEdit большого блока данных

Давеча пришлось дорабатывать одну из утилит сбора информации о системе и как-то неожиданно для меня от отдела тестирования пришел багрепорт плана:
Утилита формирует и сохраняет данные правильно, но загружает их в искаженном виде.

Ну точнее не то, чтобы неожиданно...
С чем-то подобным я уже ранее встречался, когда писал компаратор карт памяти процесса, вот для этой утилиты, но тогда, если честно, не сильно обратил на этот нюанс внимание, ибо тогда мне нужна была скорость загрузки информации в RichEdit.

Но та работа была в виде хобби, а тут собственно рабочий проект.


Если честно, причины такого поведения я не знаю, да и разбираться не сильно есть время, поэтому просто приведу решение данной проблемы.

Такой код загружает файл большого объема в RichEdit с ошибками как на верхней картинке:

RichEdit1.Lines.LoadFromFile('updates.rtf');

А вот такой, грузит правильно:

function RichEditStreamCallBack(Cookie: TMemoryStream; pbBuff: PByte;
  cb: Longint; var pcb: Longint): Longint; stdcall;
begin
  Result := 0;
  try
    pcb := Cookie.Read(pbBuff^, cb);
  except
    Result := 1;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  M: TMemoryStream;
  Param: TEditStream;
begin
  M := TMemoryStream.Create;
  try
    M.LoadFromFile('updates.rtf');
    {$IFDEF WIN64}
    Param.dwCookie := DWORD_PTR(M);
    {$ELSE}
    Param.dwCookie := LongInt(M); // LongInt для совместимости со старыми версиями Delphi
    {$ENDIF}
    Param.dwError := 0;
    param.pfnCallback := @RichEditStreamCallBack;
    SendMessage(RichEdit2.Handle, EM_STREAMIN, SF_RTF, LPARAM(@Param));
  finally
    M.Free;
  end;
end;

Сравнительный результат:

Сам код: http://rouse.drkb.ru/blog/rtf.zip

Судя по всему ошибка внутри метода загрузки в VCL обертке.