type
  TForm1 = class(TForm) //這是繼承,TForm1類別繼承至TFOrm
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;//變數宣告, FOrm1為TForm1之類別,form1只為變數
                //實際意義與 i : integer; i為一integer相同
implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
var f:TForm1;  //宣告local變數f為TForm1之類別
begin
  f:=Tform1.create(self); //用TForm1之類別create
  f.show;
end;    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cafree;
end;