FastMM4 говорит: «Нижний колонтитул блока был поврежден»

У меня есть эта функция в нашем приложении Delphi 7, которое работало очень хорошо, пока я не включил FastMM4 v4.99 в проект. После включения FastMM4 появилось следующее сообщение об ошибке :«FastMM обнаружил ошибку во время операции FreeMem. Нижний колонтитул блока поврежден». Выполнение останавливается в строке FreeMem.

function BinaryFieldToArrayOfWord( aBinaryField   : TVarBytesField;
                                   out aArrValues : TArrWord ) : Boolean;
var
  p : Pointer;
begin
  if not aBinaryField.IsBlob then
  begin
    GetMem( p, aBinaryField.DataSize );     
    try
      if aBinaryField.GetData( p ) then         
      begin
        // do something
      end;
    finally
      FreeMem( p, aBinaryField.DataSize );
    end;
  end; // if
end;

Сначала я подумал, что должна быть ошибка в функции, но это практически то же самое, что и этот пример метода TField.GetData в справке Delphi 7.:

{ Retrieve the "raw" data from Field1 }
with Field1 do
begin
  if not IsBlob  { this does not work for BLOB fields }
  begin
    { Allocate space }
    GetMem(MyBuffer, DataSize);
    try
      if not GetData(MyBuffer) then
         MessageDlg(DisplayName + ' is NULL', mtInformation, [mbOK], 0)
      else 
         { Do something with the data };
    finally
      { Free the space }
      FreeMem(MyBuffer, DataSize);
    end;
  end;
end;

Я нашел в Интернете, что вышеприведенное сообщение об ошибке часто возникает из-за того, что для данных недостаточно места. Поэтому я увеличил размер блока памяти, и сообщение об ошибке исчезло, и функция заработала, как ожидалось. После некоторого эксперимента, Я понял, что требуется 2 байта и этого достаточно:

    GetMem( p, aBinaryField.DataSize + 2 );

    FreeMem( p, aBinaryField.DataSize + 2 );

Хотя это решило мою проблему, я не совсем расслабился с этим решением, так как не знаю его предыстории. Было бы неплохо узнать причину этого сообщения. нужны дополнительные 2 байта для собственного нижнего колонтитула?

ОБНОВЛЕНИЕ :Потратив день на отладку, я теперь считаю, что в методе TField.GetData Delphi 7 есть ошибка.Он записывает 2 нулевых байта за пределы выделенной памяти блок.Я пробовал с FastMM4 и без него, и это закончилось пишет в обоих случаях (значит это не ошибка FastMM4 ). Я также пробовал приводить поле к типу TVarBytesField, без разницы. Вот код, который я использовал, с подробными комментариями, содержащими результаты. Мой единственный оставшийся вопрос :исправили ли они эту ошибку в более поздних версиях Delphis?

  procedure TfrmMain_PBC_TH.btnDEBUGClick(Sender: TObject);
  type
    TArrBytes = array of Byte;  
  var
    p       : Pointer;
    qryTest : TADOQuery;
  begin
    qryTest := TADOQuery.Create( Application );
    try
      // The type of the TQM_BinaryData.BinData column in the MSSQL database is a       varbinary(7900). 
      // Load the #168 binary data record. It contains exactly 7900 bytes, and the value of each byte is 255
      qryTest.Connection := MainConn;
      qryTest.SQL.Add('SELECT [BinData] FROM [TQM_BinaryData] WHERE [Id] = 168');
      qryTest.Open;

      // Allocate the memory block for this.
      GetMem( p, qryTest.FieldByName('BinData').DataSize );
      // DataSize is 7902 because all TVarBytesFields have 2 byte prefix in Delphi, containing the data length.
      // So the size of the allocated memory block is 7902 bytes - we are correct so far.
      try
        // Values of the first four bytes beyond the end of the memory block (memory thrash at this point) before GetData:
        // TArrBytes(p)[7902] = 96
        // TArrBytes(p)[7903] = 197
        // TArrBytes(p)[7904] = 219
        // TArrBytes(p)[7905] = 43

        // Critical point: get the data from the field with the Delphi GetData method
        qryTest.FieldByName('BinData').GetData( p );

        // Values after GetData:
        // TArrBytes(p)[0]    = 220    TArrBytes(p)[0] and TArrBytes(p)[1] contains the length of the binary data
        // TArrBytes(p)[1]    = 30     it is correct as 30 * 256 + 220 = 7900
        // TArrBytes(p)[2]    = 255    actual data starts
        // TArrBytes(p3[2]    = 255    
        //...
        // TArrBytes(p)[7900] = 255
        // TArrBytes(p)[7901] = 255    actual data ends
        // TArrBytes(p)[7902] = 0      changed from 96!
        // TArrBytes(p)[7903] = 0      changed from 197!
        // TArrBytes(p)[7904] = 219    no change
        // TArrBytes(p)[7905] = 43     no change
      finally
        // Here FastMM4 throws the block footer corrupt error because GetData modified the 2 bytes after the allocated memory block 
        FreeMem( p );
      end;

      qryTest.Close;
    finally
      qryTest.Free;
    end;
  end;

После добавления точки останова данныхстек вызовов:

    @FillChar(???,???,???)
    TDataSet.DataConvert($7D599770,$12F448,$7D51F7F0,True)
    VarToBuffer
    TCustomADODataSet.GetFieldData($7D599770,$7D51F7F0,True)
    TField.GetData($7D51F7F0,True)
    TfrmMain_PBC_TH.btnDEBUGClick($7FF7A380)
    TControl.Click
    TButton.Click