unit Unit1;    interface 從這裡到implementation之間宣告的 type, const ,var,procedure,function可以在本程式內任何地方使用，如果別的unit uses他的話，也可以使用本區內宣告的變數。    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;    type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation 本區以下所宣告的type, const ,var,procedure,function可以在本程式內任何地方使用，如果別的unit就算 uses他的話，也不能使用本區內宣告的變數。    {$R *.dfm}    procedure TForm1.FormShow(Sender: TObject);
var
   i:integer;procedure或function之間宣告的 type, const ,var只可以在程序或函數內使用，本程式內的其他地方都不能使用。。
begin
     i := 50;
     ShowMessage(IntToStr(i));
end;    end.