拜托帮我看看这个子程序，出现什么问题，为什么不能正确返回值。(10分)

拜托帮我看看gettable子程序，出现什么问题，为什么不能正确返回值。
我想将maintable（记录小于10）中'biao1'字段的值返回到mainarr数组里去。
var
Form1: TForm1;
mainarr:array [0..10] of real;
implementation

{$R *.DFM}
procedure tform1.gettable(var table1:ttable;arr:array of real);
var i:integer;
begin
table1.Open;
table1.First;
arr[0]:=table1.fieldbyname('biao1').asfloat;
i:=0;
while not table1.Eof do
begin
i:=i+1;
table1.Next;
arr:=table1.fieldbyname('biao1').asfloat;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
gettable(maintable,mainarr);
button1.Caption:='hello';
end;

procedure tform1.gettable(table1:ttable;var arr:array of real);
或者做成一个函数

GetTable中的arr是可变类型数组，需要先SetLength(Arr,Table1.RecordCount)
放在Table1.Open后面

ty sun77wind,

接受答案了.