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;