问个DELPHI 数组的问题

Question

问题1:想定义一个怎样的函数，我这个只是自己构想，肯定有错误，希望指点下，这个要这么完善才能不出错
procedure sz(x,y:array[0..10]of integer);
begin
array[0]:=(330,120)
array[1]:=(340,620)
array[2]:=(370,220)
array[3]:=(310,226)
array[4]:=(230,225)
array[5]:=(930,228)
array[6]:=(730,220)
array[7]:=(390,226)
array[8]:=(380,280)
array[9]:=(830,270)
end;
问题2：调用这个函数需要这么写？下面写的是我要的效果，希望大牛帮忙改善下。
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if array[i]=(330,120)then
beginend
end;

Answer 1

下面是例子，你在Form上面放一个button和一个Memounit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  z=record                         
    x:integer;
    y:integer;
  end;  ta=array[0..10] of z;  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  myarray:ta;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i :=0  to 10 do
  begin
   with myarray[i] do
   begin
     x:=i;
     y:=i;
   end;
   memo1.Lines.Add(IntToStr(myarray[i].x)+','+IntToStr(myarray[i].y))
  end;
end;end.

Answer 2

procedure sz(array:ta);
begin
array[0]:=(330,120)
array[1]:=(340,620)
array[2]:=(370,220)
array[3]:=(310,226)
array[4]:=(230,225)
array[5]:=(930,228)
array[6]:=(730,220)
array[7]:=(390,226)
array[8]:=(380,280)
array[9]:=(830,270)end;

Answer 3

是像下面这样写。procedure sz(array:ta);
begin
array[0]:=tafun(330,120);
array[1]:=tafun(340,620);
array[2]:=tafun(370,220);
array[3]:=tafun(310,226);
array[4]:=tafun(230,225);
array[5]:=tafun(930,228);
array[6]:=tafun(730,220);
array[7]:=tafun(390,226);
array[8]:=tafun(380,280);
array[9]:=tafun(830,270);
end;function tafun(a,b:integer):z;
begin
  with result do
  begin
   x:=a;
   y:=b;
  end;  
end;