TList报错? 急解决思路

TList报错? 急
TAWaterPoint   =   record
                X:   double;                            
                Y:   double;                            
                D:   double;                          
        end;
        PAWaterPoint   =   ^TAWaterPoint;
定义了一个结构体

然后给结构体付值
然后在定义一个方法,把结构体的值添加到TList中


var
        pWP:   PAWaterPoint;
        wp:   TAWaterPoint;
begin
        New(pWP);
        pWP^.X   :=   wp.X;
        pWP^.Y   :=   wp.Y;
        pWP^.D   :=   wp.D;
        self.WaterPoints.Add(pWP);    
        AppendWP   :=   true;

但是我执行到self.WaterPoints.Add(pWP);就报错,这有可能什么原因呢?


[解决办法]
SWaterDepth 创建了吗？这个错误一般就是没有分配内存而引用了。

另外，wp好像没有初始化就引用了。