GetMem - a jak wstwić bajt na konkretnym miejcu

Przydzielam 100bajtów pamięci i chcę wstawić znak na pozycji 5 bajta.

var PMem: Pointer;
  PByte: ^Byte;
begin
  PMem:=AllocMem(100);
  PByte:=Pointer(Integer(PMem) + 5);
  PByte^:=123;
  FreeMem(PMem);
end;

dzięki, [glowa]

Czy przydzielony obszar pamięci jest zawsze ciągły ?