mapobject+delphi 开发GIS一个point 对象属性不可付值的问题(50分)

在VB中可以这样初始化一个点对象，并给点对象的X，Y属性赋值

Dim pt1 As New MapObjects2.Point
pt1.x =x
pt1.y =y
但是在DELPHI中这样却不行
pt1: MapObjects2_tlb.point;
pt1.x :=x;
pt1.y :=y
在DELPHI中打入PT1。时有提示 。X　和　。Y　属性并且能通过编译
但是运行的时个提示　 read address 00000000000 错误　
请指教：在DELPHI 如何定义POINT对象怎样才能对POINT对象赋值呀
谢谢了