type
  TForm1 = class(TForm)
  private
    FTest1 : integer;
  protected
  // 針對寫入作處理的程序，供 Property 呼叫用。
    procedure SetTest1 (Value : Integer);
  public
    // 公開的變數，可自由讀寫。
    Test2 : integer;        // 宣告一個 Test1 的屬性
    property Test1 : integer read FTest1 write SetTest1;
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    { TForm1 }    procedure TForm1.SetTest1(Value: Integer);
begin
  // 管制寫入的程序
end;