unit Assist;

interface

  // 返回指針增量后的指針
  function IncPointer(const P: Pointer; IncSize: Integer): Pointer;



implementation

  function IncPointer(const P: Pointer; IncSize: Integer): Pointer;
  begin
    Result := Pointer(Integer(P) + IncSize);
  end;

end.