unit u1;
interface
uses....
type TForm1...
private
//这里定义的别人不能访问
public
//这里可以定义本窗口类的公共成员,可以提供其他窗口访问。
//比如:Member1:Integer;
//其他窗口先要
uses
u1;然后用Form1.Member1:=11;访问
end;
var
Form1:TForm1;
//这里可以定义所谓的全局变量,比如
//G1:String;
//其他单元也要先USES
U1,然后就可以访问:showmessage(G1);
implement
...