Выделение памяти, 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]

Обалдеть ... Спасибо