类的变量调用，很简单的

form1一个button按钮，form2一个memo1控件，一个button1，为什么form2调用不了centeragent对象的order变量的值，两个form代码如下：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Mask, DBCtrls, ADODB, ExtCtrls;  type  Tagent=class
    name :string;
  end;  Tcenteragent =class(Tagent)
  public
     order :array of string;  procedure getnum(Sender :Tobject);
  end;  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
   centeragent :Tcenteragent;
implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
   i :integer;
begin
   form2.show;
end;procedure Tcenteragent.getnum(Sender :Tobject);
var
   i :integer;
begin
   setlength(centeragent.order,5);
   for  i :=0 to 3 do
      centeragent.order[i] :=inttostr(i);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
      centeragent :=Tcenteragent.Create;
end;end.unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Mask, DBCtrls, ADODB, ExtCtrls,unit1;  type  TForm2 = class(TForm)
    Button1: TButton;
    memo1 :Tmemo;
    procedure Button1Click(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;
implementation{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
var
   i :integer;
begin
   for i :=0 to 3 do
      memo1.Lines.Add(centeragent.order[i]);
end;
end.