[delphi] AV w DeleteFree

Witam,
Spotkał się ktoś z problemem Access violation w ostatnich liniach funkcji DeleteFree znajdującej się w GETMEM.INC ??

procedure DeleteFree(f: PFree);
var
  n, p: PFree;
  size: Integer;
begin
  if rover = f then
    rover := f.next;
  n := f.next;
  size := f.size;
  if size <= cSmallSize then begin
    if n = f then
      smallTab[size div cAlign] := nil
    else begin
      smallTab[size div cAlign] := n;
      p := f.prev;
      n.prev := p;
      p.next := n;
    end;
  end else begin
    p := f.prev;
    n.prev := p;  <<-- Exception
    p.next := n;
  end;
end;