Public
   Constructor Create(Text:string): reintroduce ; overload;
Constructor TformDialog.Create(Text:string);
Begin
   Inherited Create(application);
   Edit1.Text:=Text;
End;

規則6：避免全局變量（Avoid Global Variables）
        應該避免使用全局變量（就是那些在單元的interface 部分定義的變量）。下面將會有一些建議幫助你如何去做。
        如果你需要為窗體存儲額外的數據，你可以向窗體類中添加一些私有數據。這種情況下，每一個窗體實例都會有自己的數據副本。你可以使用單元變量（在單元的implementation部分定義的變量）聲明那些供窗體類的多個實例共享的數據。
如果你需要在不同類型的窗體之間共享數據，你可以把他們定義在主窗體里來實現共享，或者使用一個全局變量，使用方法或者是屬性來獲得數據。

規則7：永遠不要在Tform1類中使用Form1
你應該避免在類的方法中使用一個特定的對象名稱，換句話說，你不應該在TForm1類的方法中直接使用Form1.如果你確實需要使用當前的對象，你可以使用Self關鍵字。
規則11：顯示組件屬性（Expose Components Properties）
       當你需要訪問其他窗體的狀態時，你不應該直接訪問它的組件。因為這樣會將其他窗體或其它類的代碼和用戶界面結合在一起，而用戶界面往往是一個應用程序中最容易發生改變的部分。最好的方法是，為你需要訪問的組件屬性定義一個窗體屬性。要實現這一點，可以通過讀取組件狀態的Get方法和設置組件狀態的Set方法實現。
假如你現在需要改變用戶界面，用另外一個組件替換現有的組件，那么你只需做的是修改與這個組件屬性相關的Get方法和Set方法，而不必查找，修改所有引用這個組件的窗體和類的源碼。詳細實現方法請參見下面的代碼：

private
   function GetText:String;
   procedure SetText(const Value:String);
public
   property Text:String;
   read GetText write SetText;
 function TformDialog.GetText:String;
 begin
     Result:=Edit1.Text;
 end;
 procedure TformDialog.SetText(const Value:String);
 begin
     Edit1.Text;=Value;
 end;
 

規則16：可視化窗體繼承（Visual Form Inheritance）
      如果應用得當，這將是一個強大的工具。根據我的經驗，你所開發的項目越大，越能體現它的價值。在一個復雜的程序中，你可以使用窗體的不同等級關系來處理一組相關窗體的多態性（polymorphism）。
      可視化窗體繼承允許你共享多個窗體的一些公共的動作：你可以使用共享的方法，公用的屬性，甚至是事件處理程序，組件，組件屬性，組件事件處理方法等等。
更多請見：http://lincosoft.go.nease.net/