delphi – 为什么这个C到Pascal转换崩溃？

/*
  WARNING:  The order of this table must also match the order of a table
  located in AcquireResizeFilter() in "resize.c" otherwise the users filter
  will not match the actual filter that is setup.
*/
typedef enum
{
  UndefinedFilter,PointFilter,BoxFilter,TriangleFilter,HermiteFilter,HannFilter,HammingFilter,BlackmanFilter,GaussianFilter,QuadraticFilter,CubicFilter,CatromFilter,MitchellFilter,JincFilter,SincFilter,SincFastFilter,KaiserFilter,WelchFilter,ParzenFilter,BohmanFilter,BartlettFilter,LagrangeFilter,LanczosFilter,LanczosSharpFilter,Lanczos2Filter,Lanczos2SharpFilter,RobidouxFilter,RobidouxSharpFilter,CosineFilter,SplineFilter,LanczosRadiusFilter,CubicSplineFilter,SentinelFilter  /* a count of all the filters,not a real filter */
} FilterType;

和

WandExport MagickBooleanType MagickResizeImage(MagickWand *wand,const size_t columns,const size_t rows,const FilterType filter)

我将它转换为Pascal,如下所示：

type
  FilterType =(
    UndefinedFilter,SentinelFilter);  // a count of all the filters,not a real filter

和

function MagickResizeImage(wand: PMagickWand; const columns: size_t; rows: size_t; const filter: FilterType): MagickBooleanType; cdecl; external MagickWandDLL;

当我调用MagickResizeImage()时,我收到了访问冲突:(

如果我改变const过滤器：FilterType到const过滤器：整数,它的工作原理.

知道我做错了什么吗？