在delphi中，怎样声明一个包含十个点坐标的常量数组？

在delphi中，怎样声明一个包含十个点坐标的常量数组？

Const
C_Point : Array [0..2] of TPoint =((X:10;Y:20),(X:20;Y:30),(X:20;Y:50)); //举例：3个

procedure TForm1.FormCreate(Sender: TObject);
Var
P:Tpoint;
begin
P := C_Point[0];//提取方法的一种
end;

const zuobiao : array[1..10]of array[1..2]of integer= ((1,1),(2,2),(3,3),(4,4),(5,5),(6,6),(7,7),(8,8),(9,9),(10,10)); //label1.Caption:=inttostr(zuobiao[1,1]);调用第一个点的x坐标 //label1.Caption:=inttostr(zuobiao[1,2]);调用第一个点的y坐标