Выделение памяти, FPC Опции

[klem4]

Что-то я не понимаю, почему для Byte и LongInt выделяется одно и тоже кол-во памяти ?

var
  pByte : ^Byte;
  pLong : ^LongInt;
  mem1, mem2 : LongInt;

begin
  mem1 := GetHeapStatus.TotalFree;
  New(pByte);
  mem2 := GetHeapStatus.TotalFree;
  writeln('Для pByte выделено ', mem1 - mem2);
  New(pLong);
  mem1 := GetHeapStatus.TotalFree;
  writeln('Для pLong выделено ', mem2 - mem1);
end.

[klem4]

Теперь я окончательно ничего не опнимаю :

uses crt;
type
  TArray = array of byte;

var
  A : TArray;

begin
  clrscr;
  writeln('Before Init : ', GetHeapStatus.TotalFree);
  SetLength(A, 100);
  writeln('After  Init : ', GetHeapStatus.TotalFree);
  SetLength(A, 0);
  writeln('After  Free : ', GetHeapStatus.TotalFree);
  readln;
end.

Before Init: 65456
After Init : 98112
After Free : 98224