Unit Unit1
interface
Uses
  Windows, Messages, Sysutils...
type
  TForm1 = Class(TForm)
  Private
    {Private declarations}
    孌數1 : Integer;
    //變數1為私人宣告, 只适用于此Unit, 其它的Unit不能調用
  Public
    {Public declarations}
    變數2 : Integer;
    //變數2為公用宣告, 其它的Unit可以調用
    //在其它的Unit調用孌數2時, 必須先Uses此Unit, 即Uses Unit1
    //然后在調用時, 用"Form1.孌數2 := 100;"的方法即可
  end;
Var
  Form1 : TForm1;
  變數3 : Integer;
  //全域孌數區, 孌數3可以被其它的Unit調用
  //和之前的Public不同的是, 宣告在此處的孌數, 在其它的Unit調用時
  //只需Uses此Unit, 即Uses Unit1, 然后在調用時, 就可把變數3當作自己
  //的變數來用, 即在孌數名稱前不用再加上所在的Form名稱
  //如"孌數3 := 100;", 而不用寫成"Form1.變數3 := 100;"
implementation
{$R*.DFM}
...

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================