不同窗体资源的调用问题(100分)

我在窗体Form1中定义了一个公用变量buy和过程 procedure chexia(...);
type
TInfoToDisp=recode
a:string[10];
b:string[10];
c:string[10];
end;

public
buy:array of TInfoToDisp;
procedure chexia(...);
procedure form1.chexia(...);
begin
...
...
for i:= 0 to length(buy)do
...
...
end;

在调用chexia之前，公有变量buy已经赋值，结果在窗体form2中调用过程chexia成功
在窗体form3中调用失败，失败理由是访问buy是出错，但我在窗体form2和form3中都
同样的引用了窗体form1,请诸位大师帮我看问题在那，在调用时窗体的资源该如何引用
对这个问题我感到比较奇怪，本来很简单的问题，就是出现了我意料不到的结果！谢谢！

在调用时:
if not Assigned(Form1) then
Form1 := TForm1.Create(Application);
// 调用！

Form2是不是改变了共有变量?
跟踪一下变量的值.

请注意buy是一个动态数组,你用SetLength为它分配过内存吗?