ช่วยหน่อยค่ะ linkList add ไม่ได้

Type<br><br> PTree = ^TTree;<br> TTree = record<br> Pst,Pend : Tpoint ;<br> lst,lend : Real;<br> length : Real;<br> end;<br><br>Var<br><br> HeapTop : Pointer;<br> MyCode : String;<br> TreeList : TList;<br> pList : PTree;<br><br>procedure linkList (pointXst,pointYst,pointXend,pointYend : Integer);<br><br> begin<br><br> //TreeList := NIL;<br> TreeList := TList.Create;<br><br> new(pList);<br> pList^.Pst.X := pointXst;<br> pList^.Pend.X := pointXend;<br> pList^.Pst.Y := pointYst;<br> pList^.Pend.Y := pointYend;<br><br> TreeList.Add(pList);<br><br> end;<br>ช่วยดูหน่อยนะค่ะ ว่าผิดตรงไหน<br>มัน add ไม่ได้<br>ขอบคุณค่ะ