总结一下：
方法一、定义在PUBLIC部分，不过在其他单元引用的时候要加上窗体的名字，示例如下：
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
public
a:integer;
end;
var
Form1: TForm1;
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
a:=1
//本单元内引用，故不加范围说明
end;
end.
在其他单元引用时，用这种形式：form1.a:=1;
同时不要忘了引用UNIT1
方法二、定义为窗体级变量，如
unit1;
class=
...
public
end;
var
form1: Tform1;
aa: string;
其他单元引用aa时直接用其名字就可以了，如：aa:=1,当然，其他单元中也要引用UNIT1。
OK？
